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BUMPAS REVIEWS 

FIELD OF FIRE (Avalon Hill, $30) is a one-player tactical game 

mulating eight small-unit infantry combat scenarios from WW2. 
Those of you familiar with Broderbund’s Operation Whirlwind will 
notice some similarities in this game. Roger Damon designed them 
both, and Field of Fire is a further development and improvement on 
Operation Whirlwind. 

Each game lasts an hour or two, and all player input is with the 
joystick. You give orders to your units in separate Fire, Movement and 
Assault phases. Operations occur during a “real-time” phase in which 
you must keep close track of the action in the battle. At any time, you 
may press the Select key to re-target your units’ fire, or the Option key 
to order an assault. 

The units are fire-teams of 1-6 men, or individual tanks. There are 
Headquarters, Rifle teams, Machine Gun crews, Bazooka/Panzerfaust 
teams, Mortar crews, Forward Observors, Engineers and Anti-Tank 
Guns. Each unit is identified by the name of its leader. The documen¬ 
tation describes each of these men. You might consider the informa¬ 
tion when giving each of them tasks to accomplish. The program pro¬ 
vides an Editor to allow you to change the names of any of the 32 
characters in the game. 

There are 10 terrain types in the game, including roads, trees, 
ridges, hilltops, woods, buildings, streams and rivers, mountains and 
hedgerows. Terrain and distances may block the line of sight to a 
target. The map scrolls smoothly across 5 screens. Status messages 
appear at the top and bottom of the screen. 

The 8 scenarios include a Night Patrol in Tunisia; Forever Road in 
Sicily; Omaha beach D-Day landing; Night of St. Anne to close a 
pocket on some Germans; Up From the Beach, breaking out of the 
beachhead; For Aachen, block-by-block clearing of a city; Ardennes 
Dawn, the last-ditch German counter-offensive; and Roeher Crossing 
^ne of the last obstacles before the Rhine. 

r he last 8 pages of the 25-page manual is a detailed description of 
-e actual “Night of St. Anne” written by the commander of L Com¬ 
pany of the 3rd Battalion, 26th Infantry, 1st Division. 

For players of wargames, this program is an excellent value for the 
money. The color, graphics and sound are appropriate and well- 
executed. It is really 8 games in one, as each scenario is complete in 
itself. The program offers the option of a “Campaign Game” in which 
' /r >u play each of the scenarios in order. Player performance is graded 
levels from Questionable to Strategic. 


CONAN (Datasoft) is an action-adventure game for one player. It is a 
game in the “Famous Faces” series (Bruce Lee was an earlier item). 
All player input is by joystick. The game may even be re-run at the end 
by pussing the joystick trigger. 

You are Conan, with 2 lives in reserve and 10 swords. “Your goal is 
to find and destroy the villainous Volta.” The 7 levels contain foes to 
fight or avoid, and dangers to overcome. Some of the levels contain 
magical solutions which, nevertheless, can be figured out with obser¬ 
vation and logic. The game is real-time, but there are no penalties for 
taking your time. And each level has “safe” areas in which you can 
rest to observe the screen carefully. 

You may find keys and gems to help you along, but you may carry 
only one at a time. A large bird is an ally who will give you an extra life 
when you touch it. 

The graphics are very well drawn, and in great detail. The colors and 
sound are appropriate. If you tire of the theme music, it can be toggled 
off. These 7 levels are not easy. They get progressively more difficult 
I’ve only made it onto level 4 so far. 

DungeonWare (Technimetrics Computing Services, Dept: The 
DungeonLair, S78 W22750 Terrace Drive, Big Bend, Wl 53103) is a 
“freeware” service to Atari users who are also adventure gamers. They 
are writing shareable software and encourage you to distribute un¬ 
modified copies. 

They also publish a newsletter, “DungeonLore”, for $8 per year. You 
also receive one or two disks for the subscription price. 

DungeonWare #1 is a Dungeons and Dragons character generator, 
s an adventure game with sound and graphics called “Cavern of 
Kings”. 

— Jim Bumpas, co-editor 


THE NEW ATARIS 

Atari has 4 new 8-bit computers and 2 new 16-bit computers which 
will put the PC market on its ear! The 8-bit machines are now called 
the “XE” line, and all are compatible with the XL software and 
peripherals out there. The 65XE is equivalent to the 800XL in a new 
case and without the parallel bus. The 65XEM is the same machine 
with a MIDI interface. The 65XEP is a portable with built in floppy drive 
and 5” monochrome monitor. The 130XE is an 8-bit machine with 131k 
RAM! The prices on these machines range from $99 to $199! 

The 16-bit machines have the Motorola 68000 cpu, the GEM 
operating system, and a MIDI interface. You have your choice of 
BASIC or LOGO as a built in language. They have 4 video ports: TV, 
composite video, RGB, and monochrome. They have a floppy disk 
controller and a hard disk interface. Direct memory access is 1.33 
Megabytes per second. They have 3-voice sound with frequency range 
from 30Hz to above audible range. 

The keyboard has its own microprocessor with one touch cursor 
control and 18-key numeric keypad. 

The ports include a Centronics parallel, RS232C, hard disk, floppy 
disk, 2 joystick ports (one configured for a 2-button mouse). 

The graphics power includes an individually addressable 32k bit¬ 
mapped screen, 3 graphics modes with 512 colors. The highest 
resolution is 640x400 pixels! 

The 130ST has 131k RAM and costs $399; the 520ST has 524k RAM 
and costs $599. Both come with 196k ROM, expandable to 327k with 
plug-in cartridges. Talk about the best of a Mindset and a Mac combin¬ 
ed! And for Va the price! I just hope the production can keep up with 
demand. This machine will rule 1985 if it is produced in sufficient 
quantities. 

— Jim Bumpas, co-editor 


VP’s RAMBLINGS 

With the new year upon us and Atari telling us about all the good 
things coming our way everything looks good in computerland. I hate 
to say this but I have found one bug in the ointment, and this is in¬ 
structions from software houses professing to tell you how 
something works, or how to do it. There you are, high and dry not 
knowing how to do something with instructions that don’t work. The 
next thing you do is call the store where you bought it and they say 
they aren’t sure you can do what you want to do and the software 
doesn’t support that type of operation. Now you call around to your 
friends and find out if they know how to do what you want. Nine times 
out of ten they don’t either. What now, a letter to the maker and you 
hope he answers or even knows what you are talking about. Sound 
familiar? 

Well if this has happened to you I think I have one answer to this 
problem. The next time this happens you write to the software firm 
who made the program and tell them of the problems you encounterd. 
If they are of no help send me a copy of your letter and their reply we 
will keep them on file and if we get enough letters we will publish 
your complaints in the newsletter. Also tell the software firm that you 
will hesitate to buy their product in the future if they don’t correct this 
type of problem and make their programs usable without having to 
resort to all kinds of extra help from them or others. 

If all of us get together we can put pressure on the software houses 
to produce the type of programs we want and can use with the least 
amount of trouble. 

Elsewhere in this issure is the first of the BUGBUSTERS. If you 
want to be a part of this group and know one form of computing real 
well let us know and we will put your name, address, phone no., and 
specialty on our list so people in your area can contact you for help. 

If you have any further ideas on these subjects please let me know. 
My address is on the back of this newsletter. 

— Larry Gold 
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DIF CONVERSION 

SYNFILE + is the latest in filemanagement programs and in my opi¬ 
nion is the best. In the 3 years I have owned my ATARI, I have spent 
most of my time writing programs for data files. I am very familiar with 
ATARI’S capabilities and limitations. SYNFILE + makes use of all of 
ATARI’S attributes, including expanded memory. 

I wrote a disk catalog program because the best filemanagement 
program was only able to search on the one main index field. The disk 
catalog program could search on three. I later modified the disk 
catalog program to be a VHS movie file in which 1250 records, the pro¬ 
gram, and the index, all resided on one disk. 

SYNFILE+ , although the program is on a seperate disk, has the 
ability to search on sixteen fields and the size of your file is only 
limited by memory for the index. It can search across disks. 

Good-bye disk catalog, hello SYNFILE+ . I decided I wanted my 
files in SYNFILE +. But I first had to convert my files to DIF (Data In¬ 
terchange FILE) files, so I wrote a program to do so. 

DIF files were originally set up by the people who wrote Visicalc in 
order to have a universal file structure to be used to transfer files bet¬ 
ween programs or between computers. Because of this structure 
(which I think was done a little backwards), it takes a long time to pro¬ 
cess data files. The DIF file is set up with rows and columns and the 
information is stored by column. All the information in the first col¬ 
umn is written first, then the second column, and so on. When a data 
file is being converted, this means the information is written by field. 
The data file has to be read from beginning to end once for each field. 
If you have 16 fields, the file has to be read sixteen times. This is just 
to convert to DIF. 

Then the file has to be loaded into SYNFILE+ . I did 72 records 
which took 45 minutes. The DIF file winds up being much larger than 
the source file. If you have a full Filemanager data disk, the converted 
DIF file might not fit on one disk. For each field in your data file, there 
are at least 8 characters added to the DIF file plus some additional in¬ 
formation to separate the fields. 

One way around this is to create subfiles with Filemanager and do 
each subfile separately. In the conversion program I have included a 
function to break down large files into two smaller files. In addition, 
when SYNFILE + converts the DIF file to its own format, it has a 
minimum field length of 16 characters. This means if your data file 
has a field with 2 charaters, when SYNFILE + converts it, it will con¬ 
tain 16 characters. This can be modified back to 2 characters with 
Modify Form and Merge functions in the Synfile -h program. The only 
thing I find I didn’t like about SYNFILE + is the fact it doesn’t give you 
any idea what is going on when it is converting DIF files. It could take 
an hour, or it could take 6 hours. You never know until it is done. 

This BASIC program will automatically convert Filemanager files to 
DIF files and will also convert other DOS type files if you know the 
structure (number of fields, lengths, whether they are strings or 
numeric, and the number of records in the file). If you are converting a 
Filemanager file, simply insert the data disk and the program will give 
you a list of the files on the disk. You then select which file you want 
to convert. 

The program will show you a list of the field names to make sure 
you have selected the right files. You will then be asked how many 
records you want to copy. This allows you to create 2 smaller DIF files 
from a very large data file. If you enter the same number as the total 
records, the conversion will only create one file. If you enter a number 
less than the number of records in the file, the coverion will create 
one file with the number of records you entered and another file with 
the rest of the records. 

Next you will be asked for the name of the output file. After all 
these entries have been made, the program will proceed to write the 
DIF file, displaying the field and record numbers as it goes along. 

At the beginning of the program you will be asked if you want to 
convert a Filemanager file or other. If you select other, you will be ask¬ 
ed questions about the fields and file names. Then it will again start to 
create the DIF file. 

After the DIF file has been created, load Synfile, remove the Synfile 
disk, insert the disk with the DIF file on it, and then select the “DIF to 
Syfile” function. You should now see the name you selected for your 
DIF file. Press RETURN and the rest is up to Synfile. This process 
could take quite a while to complete. 

The file the Synfile creates will have field names such as “A”, “B”, 
“C”, etc. Any field which had 16 characters or less will now have 16 
charaters. Another thing you will find is the conversion only differen¬ 
tiates between character fields and numeric fields. Any fields with 
special features in Filemanager such as computed, repeating, or 
dollars will now simply be text or numeric. This is not a problem 
because you can change them back with Synfile’s “Edit Form”func- 
tions. 


It is important for you to follow the right sequence when modifying 
the form. The first thing you must do is to change the field names 
back to what they were or what you want them to be* BEFORE chang¬ 
ing the lengths or types, save the new form. Now you can edit the 
same form again and modify the lengths and types. DO NOT chang 
the names of the fields during the second modification. If you do, you, 
will loose information. If you want to add or delete a field, you must 
create a new form, using the same names for the fields you want to re¬ 
tain and using different names for fields you want to add. 

Changing the field lengths or types makes it necessary to Merge 
the file into the new form. This is explained in the Synfile documenta¬ 
tion. If you have a large file, only index the file on one field and set the 
index length to one character. This reduces the chance of running out 
of memory during the merge. 

Well, I hope you enjoy using Syfile as much as I have, 

— David Fuller 

108 REM ^H C^i e MKKKMMICMKXKKMMMMKKK 
118 REM * Joystick driver Reno # 

120 REM * by Jonathan Buckheit * 

130 REM 1 ^* H XKXXXXX*nKK*KKKKKMK 
140 REM 

158 REM - Joystick Driver - 
150 REM 

178 JOYSTICKS C"hE»*-i| ®S GBhhC&x EB 

SB *®* 1 F 

188 REM 

198 REM - Set up Screen - 
208 REM 

218 GRAPHICS 8SPOKE 718,8SPOKE 752,1s? 
228 REM 

238 REM - Set up Delta Change Array - 
240 REM 

258 DIM DELTAC7,13:FOR JB=8 TO 7sREAD 
DELTAX,DELTAYS DELTA CJB,63=DELTAX:DELTA - 
CJB,13 =DELTAYs HEXT JB 
268 DATA 8,~l,l,~l,i,8,l,l,8,i,-l,l,~l 
, 8 ,- 1,-1 
278 REM 

288 REM - Put Character onto Screen * 

298 REM 

388 P05ITI0H XP0S,YP0Ss? "i”; 

318 REM 

328 REM - Read Joystick - 
338 REM 

348 JB=il5RCJOYSTICK, 83: IF JB=8 THEN 34 
0 

358 REM 

368 REM - Check Coordinates - 
378 REM 

388 DELTAX=XPOS*DELTACJB,83 sDELTAY=YP0 
5+DELTACJB,13:IF DELTAX<1 OR DELTAX>38 
OR DELTAY<i OR DELTAY>22 THEN 348 
398 REM 

488 REM - Erase Old Character - 
418 REM - Update Coordinates - 
428 REM 

438 POSITION XPOS,YPOSs? " M ;:XP0S=DEL 
3 TAX:YP05=DELTAY:GOTO 388 



RALPH WALDEN 

Teaches Assembly Language-#3 

There’s an old saying in assembly language programming (true in a 
lot of other languages as well): “You should never write the same 
°°de twice”. With the use of MAC/65 and it’s extensive macro 

^ability, that’s an easy thing to avoid. I have included two macros 
_ re to assist in adding and subtracting 2-byte integers. The action 
taken by the macro will depend on how many parameters you pass it. I 
will explain how to use the ADD macro; the SUBTRACT macro works 
the same way. 

ADD NUMBER1 - will increment the 2-byte integer NUMBER1 by 
one. 

ADD NUMBER1,NUMBER2 - will add the 2-byte integer NUMBER2 
to the 2-byte integer NUMBER1 and store the results in NUMBER1 

ADD NUMBER1,NUMBER2,NUMBER3 - will add the 2-byte integer 
NUMBER2 with the 2-byte integer NUMBER1 and store the results in 
NUMBER3. 

Note there are no comments included in the macro. Comments 
within macros take up space in the macro library while assembling, 
and reduce the overall available memory. If you are unfamiliar with 
MAC’S macros, here are some tips to help you to understand how the 
macros work: A percent followed by a number refers to the parameter. 
The first parameter is %1, the second is %2, etc. %0 gives you the 
number of parameters. By using the .IF directive, we assemble only 
the section of code we need at time. 

0100 .MACRO ADD 
0110 .IF %0 = 1 
0120 INC %1 
0130 BNE @ADDEND 
0140 INC %1 +1 
0150 @ ADDEND 

0160 .ENDIF 
0170 .IF %0f1 
0180 CLC 

*X) LDA %1 

J ADC %2 
ozIO .IF %0 = 2 
0220 STA %1 
0230 LDA %1 + 1 
0240 ADC %2 + 1 
0250 STA %1 + 1 
0260 .ELSE 
STA %3 
LDA %1+1 
tto/0 ADC %2 + 1 
0300 STA %3 + 1 
0310 .ENDIF 
0320 .ENDIF 
0330 .ENDM 

0340 .MACRO SUBTRACT 

0350 .IF %0= 1 

0360 LDA %1 

0370 BNE @SUBEND 

0380 DEC %1 + 1 

0390 @SUBEND DEC %1 

0400 .ENDIF 

0410 .IF %0f1 

0420 SEC 

0430 LDA %1 

0440 SBC %2 

0450 .IF %0 = 2 

0460 STA %1 

0470 LDA %1 + 1 

0480 SBC %2 + 1 

0490 STA % 1 + 1 

0500 .ELSE 

0510 STA %3 

0520 LDA % 1 + 1 

0530 SBC %2 + 1 

0540 STA %3 + 1 

0550 .ENDIF 

0560 .ENDIF 

0F70 .ENDM 


— Ralph Walden 


MONEY WARS 

Home Accountant vs. Your Personal Net Worth: 

I have been using Home Accountant for two years and after 4 or 5 
versions, I still do not have anacceptable home accounting system. I 
was desperate when Mike Dunn loanedme a new program: Your Per¬ 
sonal Net Worth. In I dived with boundless enthusiasm. 

YPNW loads data in a few seconds, compared to HA’s minute or 
more. It allows 4000 transactions per disk vs. 500 for HA. To 
add/change a budget category while entering checks in HA, you save 
the data, load a different program, then reload the data, change the 
category, save the data, load a program, reload the data. Five minutes 
of waiting before you can enter the nexttransaction. YPNW handles all 
these functions so the same operations take only a few seconds. I can 
also review a full screen of data at one time instead of browsing, one 
record at a time, as in HA. And check clearing is almost instan¬ 
taneous. 

HA’s latest version takes 16 seconds per check; clear 100 checks 
and waste 25 minutes waiting! The previous version’s updating was 
as fast as YPNW, but searching for data never found any. Continental 
Software tells me they have no plans to remedy this problem! Why, 
then, am I going to continue using HA instead of YPNW? 

YPNW shows much promise but not as a full home accounting/tax 
record keeping system! The 4000 transactions per disk are at the 
sacrifice of information on each record. HA’s checks allow “Paid to” 
(24 characters), as well as memo (25 characters) while YPNW allows 
10 characters only to describe the reason/paid-to, etc. Try “Uncle 
Johnson’s 50th wedding anniversary” in 10 characters! Ok! We can 
learn to abbreviate. 

More serious: The YPNW manual says to deposit your paycheck’s 
net pay and record taxes withheld into their own accounts. I con¬ 
tacted Scarborough Systems and asked how to keep track of gross in¬ 
come for tax purposes and yet handle tax, insurance and other deduc¬ 
tions from a paycheck. They said to enter a gross deposit and transfer 
each deduction out of income to their respective accounts. When I 
mentioned this will prevent reconciling the gross amount with any 
deposit on the bank statement, they said true, but that’s the way to do 
it anyway! 

So much for matching your computer data to the bank’s. HA 
handles the problem by allowing you to split any deposit into as many 
accounts as you want. I contacted Scarborough Systems and asked 
about other inconsistencies between the program and the instruction 
manual. The manual says to print accounts; I couldn’t get the program 
to do it. The manual says posted entries may be corrected, but I 
couldn’t. Scarborough said,“Yes, that’s right.” 

The clincher comes when they told me they will not supply users 
with a back-up program disk, even fora fee. This means you have to 
send in your bad disk with $5 and probably wait 2 weeks before you 
can update or review your checks, stock records, property data, etc. I 
find this barely acceptable in a game and absolutely unacceptable for 
a program upon which I depend for budgeting and tax purposes!!! 
Scarborough Systems told me they have no plans to change this 
policy and no plans to correct any deficiency in this program in the 
near future. 

If you want a program to balance checks, keep a record of personal 
property, or a simple record of stock purchases and sales, then YPNW 
may be for you. It is easy to use and it’s quick, but as an income/tax 
keeping system, I feel you should look elsewhere. 

HA is a much more complete system, slow and cumbersome as it 
may be. It will do the job if you have the patience and are not easily 
frustrated. I do NOT recommend subscribing to, or depending upon 
their phone help ($20 per year) because even when you can get 
through to them, you may wait 15 or 20 minutes on hold at your long¬ 
distance expense! 

— Steve Golden 
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188 REM **** MULTIPLICATION FLA5H0 *** 
* 

li« REM JiN A. Carr 26-Feb-84 
129 REM 

159 DIM DX(ii3,DY(ii3,5$(14883,T$(i43, 
RIGHT(12,123,WRONG(12,123 
149 GOTO 719;REM Skip around high spee 
d routines. 

159 REM ==== Start a new ga*e 

169 FOR PRQB=i TO 12;REM 12 problems p 

er set. 

179 REM - Select Multipliers. 

199 A=INT((MAX-13*RMD(83+23 
159 B=IMT((MAX-13*RMD(83*23 
299 REM .... use another probleM if we 
got this one right alreadg. 

219 IF RIGHT(A,B3<2 THEN RETRY=8:G0T0 
259 

229 RETRY=RETRY+i:IF RETRY<5 THEN 189 
259 AB=A*B:TIME=8 

249 REM - Display the probleM 

259 POSITION 14,7;? t*6;" 

269 POSITION 14,7;? **6;A;»x»;B 

279 REM - Track joystick 

289 TIHE-TIME+1 

259 Xi=X:Yi=Y:REH Save last position 
599 S=STICK(93-4;K=X+DK(S3;Y=Y*DY(S3 
519 IF X<5 THEN X=3:REH Check for edge 

529 IF Y<2 THEN Y=2 

559 IF X>12 THEN X=12 

549 IF Y>16 THEN Y=16 

559 POSITION XI,Yl;? **6;"*";:REH Resto 

re "+" 

569 POSITION X,Y;? **6;»o";;REM Hove "O 

ii 

579 XY=(X-53+18*(Y-23:REH Current answ 
er 

589 POSITION 15,8;? US;” ” 

559 POSITION 15,8:? **6;XY 
499 FOR 1=1 TO 49:NEXT I 

419 REM - If trigger, check answer 

429 IF STRIG(JS3 THEN 289 
459 IF XY=AB THEN 599 

449 REM - Answer is wrong. 

459 SOUND 9,199,19,8: WONG (A, B3 =WROMG ( 
A,B3+1:HITS=8 

469 POSITION 15,8:? 1*6;" » 

479 POSITION 15,8:? I*6;AB:F0R 1=1 TO 1 
59:NEXT I 

489 SOUND 9,9,9,9:FOR 1=1 TO 759:NEXT 
I 

459 POSITION 14,8:? *16;" ":GOT0 58 
9 

599 REM - Answer is right. 


519 SOUND 9,59,19,8:FOR 1=1 TO 55:NEXT 
I 

528 RIGHT(A,B3 =RIGHT(A,B3 *1 

558 TIH=TIME:IF TIH>58 THEN TIH=58 

548 SC0RE=5C0RE*2+(58-TIM3/18+(AB3/58 

558 HIT5=HIT5*1 

568 IF HIT5=4 THEN GOSUB 668 

578 REM - Display score 

588 POSITION 15,11:? 1*6;» 

558 POSITION 15,11:? **6;INT(SC0RE*9.53 
688 POSITION 15,14;? **6;" 

618 POSITION 15,14:? **6;IMT(18*TIHE/4. 

65*9.853/18 

628 SOUND 8,8,8,8 

658 IF 5TRI6(JS3=8 THEN 658;REM Wait i 
f trigger is still pressed. 

648 POKE 77,9:REM Kill atract node. 

658 NEXT PROB:RETURN 
668 REM ==== Display pat on the back 
678 I=14*INT(RND(83*5END+13 
688 POSITION 8,15;T$=5$(1-15,13 :? **6;" 
";T$ 

658 FOR 1=58 TO 58:S0UND 8,198-1,19,8: 
NEXT I 

788 SOUND 9,8,9,8:HITS=8:RETURN 
718 REM ==== initial instructions 
728 GRAPHICS 2+16 

758 ? **6:? «6;"*#*** fiash-o »****» 

748 ? **6:? **6;"THE MULTIPLICATION" 

758 ? **6:? 1*6;" FLASH CARD GAME" 

768 FOR 1=1 TO 1288:NEXT I 

778 ? :? "MHAT IS THE HIGHEST HULTIPLI 

ER" 

788 ? "THAT YOU WISH TO USE (5 TO 123" 
3 

758 INPUT MAX:IF HAX<5 OR HAX>12 THEM 
778 

888 REM ==== One tiMe initialization 

818 REM - Draw background. 

828 GRAPHICS 1+16 

858 ? **6;" t*6 

848 FOR 1=8 TO 14:IF I<18 THEN ? **6;» 

it ■ 
i 

858 ? **6;I;"S++++++++++";NEXT I 
868 POSITION 14,18:? **6;"score" 

878 POSITION 14,15:? **6;"tiMe" 

888 REM - Set up joystick Move tabl 

e 

858 FOR 1=1 TO 11:READ X,Y:DX(I3=X:DY( 
13=Y:NEXT I 

588 DATA 1,1, 1,-1, 1,8, 5,5, -1,1, - 

1,-1, -1,8, 5,5, 8,1, 8,-1, 8,8 

518 X=5:Y=2:GOSUB 1258 

528 REM .... Zero answer counters. 

558 FOR 1=1 TO 12:FOR J=1 TO 12:RIGHT( 


I,J3 =8:WRONG(I,J3 =8:NEXT J:MEXT I 
548 REM ==== Start new gawe 
558 SC0R£=8:H1TS=8 

568 FOR 5£T=i TO 4:REM 4 sets per gane 

578 POSITION 14,8:? **6;"set ";SET 
588 POSITION 8,15:? **6;"PRE55 Start TO 
GO" 

558 IF SET=1 THEN POSITION 8,21:? **6;" 
PRESS option TO END" 

1888 REM - Wait for START or OPTION 

1818 IF PEEK(552753=5 THEN 1148 
1828 IF PEEK (552753 0 6 THEN 1818 
1858 FOR 1=1 TO 288:NEXT I 
1848 POSITION 8,15:? **6;" 

":REM 17 blanks 
1858 POSITION 8,21:? 1*6;" 

":REM 15 blanks 

1869 GOSUB 158:REM Go play a set. 

1878 NEXT SET 

1888 REM - Display best 8 last scor 

es 

1858 LAST=IMT(SCORE+8.53 

1188 IF LA5T>BE5T THEN BE5T=LAST 

1118 POSITION 8,18 

1128 ? **6;"best »;BE5T;» last ";LA5T 
1158 GOTO 548:REM Go start new gaMe 
1148 REM ==== Display right/wrong coun 
ters 

1158 GRAPHICS 8:POSITION 9,8 

1168 ? "A*B 25456785 U 

11 12 " 

1178 FOR A=2 TO 12 POSITION 8,A*2-2:? 

A 

1188 FOR B=2 TO 12 

1158 POSITION B*5-2,A*2-2:IF RIGHT(A,B 
3 THEN ? RIGHT(A,B3;:GOTO 1218 
1288 ? 

1218 POSITION B*5-2,A*2-l:IF WRONG(A,B 
3 THEN ? WRONG(A,B3;;GOTO 1259 
1228 ? "-"; 

1258 NEXT B:M£XT A 

1248 INPUT T$:END :REM Exit on RETURN 
key 

1258 REM•==== Move Messages to string 
1268 FOR 1=1 TO 188:READ T$;IF T$="EMD 
" THEN SEND=I-1:RETURN 
1278 114=1*14 

1289 5$(114-15,1143=" ";R 

EH 14 blanks 

1258 5$(114-15,1143=T$ 

1589 NEXT I:RETURN 

1518 REM ==== Pat-on-the-back Messages 
1528 REM Space for 188 14-character * 
ssages 
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1 REH IH H tKKKMKKKKKKKXKKICMKICKKMKKKKK 

2 REM XX BLOCKHQLE XX 

3 REM XX Ed ScheMbri 12-84 XX 

4 REM X XX IKMMMKMMMXMXMlfltXXltlCMItKMICXM 

5 REM 

18 GOTO 1168 
28 REM 

38 REM . xx move*** 

48 REM 

58 POSITION 2,8:? "score-)*';SCORE 
68 POKE KEY,MT:GET tti,M 
78 IF H=155 THEN GGSUB 248:0=18:8=2:01 
=0:81=8;POSITION 0,B:? "1":CHR1=45:G0T 
0 58 

88 IF M=32 THEN GOSUB 698:GOTO 58 
98 IF M=27 THEN GOSUB 538:0=18:8=2:01= 
0:81=8:POSITION 0,B:? "fi":CHRl=45:G0T0 
58 

188 IF NOT (M=42 OR M=43 OR M=45 OR M 
=61) THEN K=USR(BELL):GOTO 68 
118 0=0+2X(H=42)-2X(H=43):B=B*2#CM=6i) 
-2«(M=45) 

T IF 0<18 THEN 0=18 
_8 IF 0)28 THEN 0=28 
148 IF 8<2 THEN 8=2 
158 IF B>28 THEN 8=28 
168 IF (B>2 AND B<28) OND M=42 THEN 0= 
28 

^ IF CB>2 OND B<28) OND M=43 THEN 0= 

188 IF {0)18 OND 0<28) OND M=61 THEN B 

=28 

198 IF (0>18 AND 0<28) OND M=45 THEN B 

=2 

288 POSITION 01,81:? CHR$CCHR1):LOCATE 
0,8,CHR:POSITION 0,8:? CHR$(CHR+128): 
CHR1=CHR:01=0:B1=B:GOTO 58 
218 REM 

228 REM . XX logic XX 

238 REH 

248 LOCATE 0,B,CHR:POSITION 0,B:? CHR$ 
(CHR) :IF CHROL68 THEN W=USR(BELL):POP 
:GQTO 58 

245 FOR PL=8 TO 8 STEP -1:SOUND 8,PL*4 

4,18,PL:SOUND 1,PL*44+2,18,PL:FOR DLY= 
i TO 18:NEXT DLY:NEXT PL 
258 Xi=8:Yl=8:HIT=8:L=8:R=L:U=R;D=U 
268 TRAP 458:X=0/2-5:Y=B/2-l:DIR=i#{X= 
8)+2X(Y=9)+3X(X=9)+4*CY=8) 

278 ON DIR GOTO 288,298,388,318 

288 U=0(X+1,Y+1):HIT=0(X+i,Y);D=0(X+i, 

Y-1):G0T0 328 

8 R=0€X-1,Y-1):HIT=0(X,Y-l):L=0CX+1, 
x):GOTO 328 

388 U=0CX-1,Y+1):HIT=0CX-1,Y):D=0CX-1, 


Y-l)‘.GOTO 328 

318 R=0(X-1,Y+1) ;HIT=0(X,YU) :L=0(XU, 
Y+i) 

328 IF HIT THEN EPS$="H":GOTO 468 
338 IF (R=l OND L=i) OR CU=1 OND D=l) 
THEN EP5$="R":G0T0 468 
348 IF NOT (U=l OR D=1 OR L=i OR R=l) 
THEN 368 

358 DIR=i*CR=i)+2X«J=i)+3X(L=1)+4X(D=1 

):L=8:R=L:U=R:D=U:GOTO 278 

368 ON DIR GOTO 378,398,418,438 

378 X=X+i;IF X=9 THEN 478 

388 GOTO 448 

398 Y=Y-l:IF Y=8 THEN 478 
488 GOTO 448 

418 X=X~1:IF X=8 THEN 478 
428 GOTO 448 

438 Y=Y+l:IF Y=9 THEN 478 
448 L=8:R=L:U=R:D=U:GOT0 278 
458 EPS$="R» 

468 5C0RE=5C0RE+i:F0R FL0SH=1 TO 18:GO 
SUB 498:POSITION 0,8:? EPS$:NEXT FLASH 
:RETURN 

478 Xi=(X+5)X2:Yl=(Y+l)*2:5CGRE=SCQRE+ 
2 

488 P=P+i:FOR FL05H=1 TO 18:GOSUB 498: 
POSITION 0,8:? HKR$(P,P):PQ5ITI0N XI,Y 
1:? MKR$(P,P):NEXT FLASH:RETURN 
498 FOR DLY=i TO 38:NEXT DLY:POSITION 
0,8:? " “:POSITION XI,Yl:? " ":FOR DLY 
=1 TO 38:NEXT DLY:RETURN 
588 REM 

518 REM . solve xx 

528 REM 

538 LOCATE 0,B,CHR:P0SITI0N 0,B:? CHR$ 

(CHR-128);POSITION 12,4:? "|":CHRi=32 

548 0=12:8=4:01=0:B1=B 

558 POKE KEY,MT:GET ttl,H 

568 IF M=27 THEN LOCATE 0,8,CHR:POSITI 

ON 0,8:? CHR$(CHR-128):RETURN 

578 IF M=32 THEN GOSUB 698:GOTO 558 

588 IF H=155 THEN 668 

598 IF NOT (M=42 OR M=43 OR M=45 OR M 

=61) THEN H=USR(BELL):GOTO 558 

688 0=0+2X(M=42)-2X(H=43):B=B+2X(Mr61) 

-2X(H=45) 

618 IF 0<12 THEN 0=26 
628 IF 0)26 THEN 0=12 
638 IF B<4 THEN B=18 
648 IF B>18 THEN B=4 
658 POSITION 01,81:? CHR$(CHR1):LOCATE 
0,8,CHR;POSITION 0,8;? CHR$(CHR+128): 


R);H=USR(BELL):GOTO 558 

678 IF CHR=168 THEN POSITION 0,8:? 

:CHR1=28:HQLE=H0LE+1:GOT0 558 

688 POSITION 0,8:? "■":CHRi=32:H0LE=H0 

LE-1:G0T0 558 

698 POSITION 2,22:? "Ore you sure you 
xant to solve it?" 


788 GET til,AN:IF NOT C0N=89 OR 0N=78) 
THEN M=USR(BELL):GOTO 788 
718 IF 0N=78 THEN ? "tfl":RETURN 
728 POP :? "tO":LOCATE 0,B,CHR:P05ITI0 
N 0,8:? CHR$(CHR-128):POKE KEY,MT 
738 FOR Y=i TO 8:FOR X=1 TO 8:SOUND 8, 
XX18+YX15,18,18 

748 LOCATE XX2+18,YX2+2,EPS:IF EP5=32 
OND 0(X,Y)=8 THEN POSITION XX2+18,YX2+ 
2:? ":":NEXT X:NEXT Y:GOTO 868 
758 IF NOT (EP5=28 AND 0(X,Y)=1) THEN 
788 

768 FOR D0=58 TO 8 STEP -1:SOUND 8,D0X 

96.18, DO/5 

778 POSITION XX2+18,Y*2+2:? " ":P05ITI 
ON XX2+18,YX2+2:? "t":NEXT DO:NEXT X:N 
EXT Y;GOTO 868 

788 IF NOT (0(X,Y)=l AND EPS=32) THEN 
818 

798 FOR D0=58 TO 8 STEP -1:SOUND 8,D0X 

65.18, DO/5 

888 POSITION X*2+18,YX2+2:? "t":POSITI 
ON XX2+18,YX2+2:? "♦":NEXT D0:5=S+3:NE 
XT X:NEXT Y:GOTO 868 
818 FOR D0=58 TO 8 STEP -1:SOUND 8,D0X 

84.18, DO/5 

828 POSITION X*2+18,YX2+2:? 'If^POSITI 
ON XX2+18,YX2+2:? "«H»:NEXT DO:NEXT X:N 
EXT Y 
838 REM 

848 REM , xx fini xx 

858 REM 

868 SOUND 8,8,8,8:SCQRE=SC0RE+5:P05ITI 
ON 2,8:? ;SCORE:IF 5=8 THEN 


FOR BL5=i TO 18:M=USR(BELL):NEXT BL5 
878 POSITION 2,22:? ^gTiCTifEPlhPlav ag 


ain. .l ITOTOiH -quit^GET ttl,M;IF M=155 
THEN POSITION 8,2:TRAP 32767:END 
888 FOR X=1 TO 28:POSITION 8,23:? CHR$ 
(155):NEXT X 
898 REM 

988 REM . XX set-up xx 

918 REM 

928 POKE 789,282:? "681293331001 by 


Ed ScheMbri *84" 


CHR1=CHR:01=0:81=8:GOTO 558 

668 LOCATE 0,8,CHR:IF CHR=168 THEN IF 

HOLE=HOLES THEN POSITION 0,8:? CHR$(CH 


938 ? :? :? "Do you want: iB| you plac 
e hole(s) IBI random p 
lacenent" 
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som 


IISSFUL UT..r c L./TX£S FJiOTll. B.GLS.J’.e* 


4I REM PICK LOTTERY BY STEPHEN E. SILVE 
RBERG 

4 ? "*":P0KE 82,1:POKE 83,37 

5 POSITION 5,3:? "LOTTERY NUMBERS BY T 

HE CARO by S.E. Silverberg 

": ? : ? 

9 OPEN Hi,4,0,"K:" 

10 BIN L(45),C(45),A(5) 

58 ? :PRINT "THIS PROGRAM IS FOR THE N 
EH YORK STATE LOTTERY -" 

55 ? "IT HILL RANDOMLY PICK 6 NUMBERS 
OUT OF 44." 

68 ? :PRINT " THE LOGIC BEHIND THIS 
PROGRAM -";? :? "THE N.Y.5. LOTTERY SE 
LECTS 6 NUMBERS OUT OF 44."; 

78 PRINT » THIS PROGRAM HILL SELECT 76 
AK CAROS OF 6 NUMBERS. EACH NUMBERMI 
LL APPEAR ONCE PER GAME CARO"; 

80 PRINT " YIELDING A TOTAL OF 4 

2 NUMBERS PLUS 2EXTRA NUMBERS. THIS G 
IVES A TOTAL 0F44 NUMBERS." 

81 ? :? "PRESS ANY KEY TO CONTINUE" 

82 GET *11,A:? "6" 

85 ? :PRINT "ALL THE NUMBERS ARE CHOSE 
N RANOOMLY AS THEY ARE IN THE LOTTERY 
.THEREFORE,YOU HAVE A VERY"; 

SO PRINT " HIGH PROBABILITY OF GETTIN 
G AT LEAST ONE OF THE 6 NUMBERSCHOSEN 
ON ANY GAME CARO."; 

188 PRINT " A GOOD CHANCE OF HAVI 
HG 2 NUMBERS AND A FAIRCHANCE OF GETTI 
NG 3 NUMBERS."; 

101 ? " YOUR CHANCES OF GETTING 4,5 
, OR 6 NUMBERS INCREASE IF YOU COMBINE 
3 SETS OF GAME CAROS ANO"; 

182 ? " THE EXTRA NUMBERS TO PLAY 22 
GAMES." 

185 ? :? :? "PRESS ANY KEY TO CONTINUE 
":GET HI,A:? "K» 

118 PRINT :PRINT :PRINT " GOO 

0 LUCK!" 

120 PRINT '.PRINT :PRINT " PLEASE FOR 
HARO 5X OF YOUR HINNINGSTO ME. THANK 
YOU." 

130 PRINT :PRINT 

168 PRINT » FOR OTHER LOTTERY SYSTEM 
S HITH A OIFFERENT GROUP OF NUMBERS T 
0 CHOOSE FROM CHANGE LINES"; 

161 ? " 218 ANO 250." 

178 PRINT " IF OTHER THAN 6 NUMBERS 
ARE TO BE PICKED - CHANGE LINES 350, 
368, 378, 538, 620, 650." 

188 ? :? :? "PRESS ANY KEY TO CONTINUE 
":GET HI,A:CLOSE HI 

198 ? "*":? "PLEASE BE PATIENT":? "I A 


M PICKING YOUR HINNING NUMBERS" 

288 6-1;A-8 

218 FOR 1=1 TO 45:L(13 =8:C Cl)=8:NEXT I 

:REM RESET L & C 

258 FOR K=1 TO 44 

268 LET L(K)=INTtRNDCi)*44)+l 

278 IF CLCKXi) OR CLCK)>44) THEN 268 

288 IF C(L(K))=1 THEN 268:REM K USED 

298 C(L CK))=1 

388 NEXT K 

358 FOR M=1 TO 37 STEP 6 

368 FOR K=M TO N+4 

378 FOR N=K+1 TO M+5 

388 IF LCKXLCN) THEN 428 

398 LET T=LCN):LCN)=LCK):L(K)=T 

428 NEXT N 

438 NEXT K 

446 NEXT M 

458 J=43 

468 FOR 1=1 TO 44 

478 IF CCI) =8 THEN LCJ)=CCI):J=44 

488 NEXT I:POKE 752,1 

498 POSITION 21,18:PRINT "GAME CARO H 

";G:PRINT 

580 M=i 

518 FOR A=65 TO 71 

528 PRINT "GAME ";CHR$(A) 

538 FOR N=M TO M+5:PRINT LCN3;" ";;NEX 

T N:PRINT SPRINT 

568 P=1 

628 M=M+6 

630 NEXT A 

648 POSITION 25,18:? "EXTRAS " 

658 POSITION 25,11 SPRINT LC43);" ";L«4 
4) 

698 FOR 1=1 TO 5800:NEXT I:? "*" 

788 G=G+l:GOTO 210 



108 GOSUB 9808:GRAPHICS 8+16:60SUB 588 
:COLOR 1 

118 FOR Y=8 TO 95 STEP 6:PLOT 8,8:0RAH 
TO 319,Y:PLOT 0,196:ORAHTO 319,198-Y:N 
EXT Y 

128 FOR Y=8 TO 198 STEP 6'.PLOT 319,95: 

ORAHTO 8,Y;NEXT Y 

138 PLOT 8,191:ORAHTO 319,191 

148 GRAPHICS 8+32:GOSUB 508 

158 ? "To scroll picture up or do*m," 

160 ? "use the fct and 14 keys." 

165 ? "ESC key-back to MENU." 

178 P=PEEKC764):IF P<14 OR P>15 THEN 1 
78 

188 GRAPHICS 8+16+32:GOSUB 500 
288 5CR=PEEK(88)+256*PEEKC89) 

218 SIZE=7648:L0=5CR+48;HI=5CR+5IZE 
228 P=PEEKC764):IF P=15 THEN I=USR(5M, 
SCR,LO,SIZE3:I=USR(SM,HI,SCR,40):GOTO 
228 

238 IF P=14 THEN I=U5RC5M,L0,SCR,SIZE) 
:I=USR(SM,SCR,HI,48):GOTO 220 
248 IF P=28 THEN RUN "0:«NU" 

258 GOTO 228 

508 SETCOLOR 2,8,8:SETC0LOR 1,8,14:RET 
URN 

8998 REM - 


HACHINEtjftHGUA 

Shift MeworM USft Routine 


8993 REM I=USRC5M,SRC,OEST,SIZE) 

9088 DIM 5M$(1823:SM=AORCSM$) — 

9818 5H$="hh^h3Ch,Th^h(SLiC8r[^E) hfi3 
ffiveoaoieFaFsrnr^^ 
hMHDvajgctmra^ 

9020 RETURN 


5 DIM F1$C15),ST$CFREC8)«0.85):GRAPHIC 
S 8 

7 ? :? :? 

10 ? "HHICH FILE TO PRINT";:INPUT Fl$ 
28 ? :? :? "HOH MANY COPIES";:INPUT N 

38 OPEN H1,4,8,F1$ 

40 OPEN H2,8,B,"P:" 

60 TRAP 508 

78 GET HI,A:ST$ CLEN(ST$)+1)=CHR$(A) 

80 GOTO 78 

588 IF PEEK(195)<>136 THEN ? :? "ERROR 
H";PEEKC195) SEND 
585 CLOSE HI 
518 FOR 1=1 TO N 

515 POSITION 2,15:? "PRINTING COPY H"; 

I;" " 

516 ? H2;5T$:? H2;CHR$(12); _ 

517 NEXT I 

528 CLOSE H2SEN0 
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PLOT by STAN OCKERS 


18 REM X X KKMMMKMXXMKKMKltltXSXMMMMMXM 


28 REM XX XYPLOT XX 
22 REM XX PART Of XYGRAF XX 
24 REM XX 5. OCKERS 12/84 XX 
26 REM xx ACE Newsletter Eeb. 84 xx 
28 REM xx 3662 Vine Maple Or, ** 
38 REM *x Eugene, OR 37485 xx 
32 REM xx $12 year xx 


34 REM X X XX X X X XKKKKltXXMlIXltXIOtMMIHtliM 
36 REM 

38 GOSUB 1888:60506 352:POKE 752,1:? C 
HR$(1253;" INITIALIZING":603UB 4888 
48 lffT5=188:0IM FNM${14),D$C283,E$(43, 
A$(128),DAT$(4),X(MPTS3,Y(MPT53,MARK CM 
PTS3,SX(MPTS3,SYC»»T53 
58 DIM X5CL (113,YSCL (11),XTTL$(48),YTT 
L$(243,GTTL$(483:DAT$r",DAT":OPEN Mi,4 
,8,"K:":POKE 16,112:POKE 53774,112 
68 GRDELG=8:5TYFLG=8:MKER=8:G05U8 3188 
:E$=»X 18" 

78 VXL=45;VXR=295:VYT=13:VYB=163;XL-VK 
L:XR=VXR;YT=VYT;YB=VYB 

IF PEEK(16543 <>58 THEN 86 
F-8:F0R J=1 TO 14:FNM$(J,J3=CHR$(PE 
EKC1639+J33:IF FNM$(J,J3r».» AND F-8 T 
HEN L-J:F=1 

84 NEXT J:FNM$=FNM$(i,L+33’.GOSUB 782 
86 REM X JUMP HERE IF NO FILENAME TO L 

** x 

REM x MENU X 

188 POKE 752,1:? CHR$Ci253,‘" XYPLOT M 
ENU":? :? "(13 READ FILE":? :? "(23 PL 
OT GRAPH 8 AXES" 

118 ? :? "(33 LIST FILES ON DISK":? :? 

"(43 CHOOSE TITLES ETC.":? :? "(53 PL 
OT ADDITIONAL CURVE" 

115 ? :? "(63 DISPLAY GRAPHIC SCREEN " 
:? " (PRESS KEY TO RETURN3" 

128 ? :? "(73 PRINT GRAPH ON PRINTER": 
? .*? "(83 CLEAR GRAPH SCREEN":? :? "(3 
3 ENTER/MANIPULATE DATA" 

138 IF LEN(FNH$3>8 THEN POSITION 18,22 

:? "FILENAME-";FNM$(33 

158 GET MI,K:IF K<43 OR K>57 THEN 158 

168 ON K-48 GOTO 788,388,1388,288,458, 

378,178,175,188 

178 GOSUB 1488;G05UB 3888:GOTO 188 
175 GOSUB 358:GOTO 188 
188 RUN “D:XYENTRY" 

133 REM X TITLES ETC, FOR GRAPH X 
288 ? CHR$(1253GRAPH CHOICES":? :? 
"Hi XMIH,XMAX,YMIN,YMAX ":? » »;XM 
V ";XMAX;" ";YMIN;" ";YMAX 
.8 ? :? "Q| X-AXIS TITLE":? " 

XTTL$ 


212 ? :? "H Y-AXIS TITLE":? » "; 

YTTL$ 

214 ? :? "0 GRAPH TITLE":? " »;G 

TTL$ 

216 ? :? "B GRID "; :IF GRDFLG-8 THEN 
PRINT "CE" 

218 IF GRDFLG=i THEN ? »ffiE» 

228 ? :? "O GRAPH STYLE »;:IF 5TYFLG 


[LXNE5- POINT TO POINT, 


222 IF STYFL6=i THEN 


POINTS ONLY 


228 ? :? "0250! RETURN TO XYPLOT MENU" 


238 GET M1,K:IF K=32 THEN 188 

231 IF K<43 OR K>54 THEN 238 

232 ON K-48 GOTO 248,268,262,264,278,2 
88 

233 REM X NEW MIN OR MAX VALUES X 

248 TRAP 48888:? CHR$(1253;" CHOOSE 0 
NE":? :? "(13 XMIN =";XMIN:? :? "(23 X 
MkX -";XMAX 

242 ? :? "(33 YMIN =";YHIN:? :? "(43 Y 


MAX =";YMAX:? :? "02331 RETURN TO CHOI 
CE5 MENU" 


244 GET M1,K:IF K=32 THEN 288 

245 IF K<43 OR K>52 THEN 244 

246 ON K-48 GOTO 258,252,254,256 

258 TRAP 258:? CHR$(1253:? :? :? "INPU 
T XMIN (";XHIN;»3 ";:INPUT XMIN:GOTO 
248 


252 TRAP 252:? CHR$(1253:? :? :? "INPU 
T XMAX (";XMAX;"3 ";:INPUT XMAX:GOTO 
248 

254 TRAP 254:? CHR$(1253:? :? :? "INPU 
T YMIN C";YMIN;"3 »;:INPUT YMIN:GOTO 
248 

256 TRAP 256:? CHR$(1253:? :? :? "INPU 
T YMAX (";YMAX;"3 ";:INPUT YMAX’.GQTO 
248 

268 ? CHR$(1253:? :? :? "INPUT X-AXIS 
TITLE ";:INPUT XTTL$:GOTO 288 
262 ? CHR$(1253:? :? :? "INPUT Y-AXI5 
TITLE ";.INPUT YTTL$:GOTO 288 
264 ? CHR$(1253:? :? :? "INPUT GRAPH T 
ITLE ";:INPUT GTTL$:GOTQ 288 
278 IF GRDFLG=8 THEN GRDFLG=1:GOTO 288 
272 GRDFLG=8:G0T0 288 
288 IF STYFLG=8 THEN 5TYFLG=1:GOTO 288 
282 5TYFLG=8:G0T0 288 
233 REM X FIND HIGHEST & LOWEST VALUES 
x 


388 XMIN=X(13:XMAX=X(13:YMIN=Y(13;YMAX 
-Y (13 

328 FOR J=2 TO ENTR 
322 IF MARK(J3)8 THEN 362 
338 IF XCJ3(XMIN THEN GOSUB 364:GOTO 3 
88 


348 IF YCJ3 <YMIN THEN YMIN=Y(J3 
358 IF Y(J3>YMAX THEN YHAX=YCJ3 
368 IF X(J3>XMAX THEN XMAX=XCJ3 

362 NEXT J:RETURN 

363 REM X ORDER X DATA SUBROUTINE X 

364 ? :? » Sorting":SFLG=8:FOR K= 

1 TO ENTR-l:IF X(K+13)~X(K3 THEN 368 
366 TEMP=X(K3:X(K3 =X(K+13:X(K+13 =TEHP: 
SFLG=1:TEMP-Y(K3:Y(K3 =Y(K+13:Y(K+13 =TE 
MP 

368 NEXT K:IF 5FL6=i THEN 364 

378 RETURN 

379 REM X PLOT GRAPH AND AXES X 

388 GOSUB 958:? :? " SCALING" 

382 MSDY= CYHAX-YMIN3/18:MSDX-(XHAX-XMI 
N3/18 

428 GOSUB 1588:GOSUB 1548:GOSUB 1488:G 
OSUB 1688:GOSUB 1858:GOSUB 1558 
438 IF 5TYFLG=8 THEN GOSUB 888 
432 IF STYFLGrl THEN GOSUB 828 

448 GOSUB 952:GOTO 188 

449 REM X ORAM ADDITIONAL CURVE X 
458 GOSUB 1488:GOSUB 1548 

452 IF STYFLG=8 THEN GOSUB 888 

454 IF STYFLGrl THEN GOSUB 828 

456 GOTO 188 

699 REM X READ A FILE X 

788 ? CHR$(1253:GOSUB 1288 

782 TRAP 768:OPEN M2,4,8,FNM$:INPUT M2 

,ENTR 

718 FOR J=1 TO ENTR 

728 INPUT M2;M,X,Y 

738 MARK(J3 =M: XCJ3 =X:Y(J3-Y 

748 NEXT J:? :? :? "xxxxx »;FNM$;" LOA 

DED xxxxx** 

742 FOR J=1 TO LEN(FNM$3:POKE 1639+J,A 
SCCFNM$(J33:NEXT J 

758 CLOSE M2:GOSUB 388:GOSUB 1378:TRAP 
48888:GOTO 188 

768 ? :? :? " xxxxx FILE NOT FOUND 
xxxxx»;GOTO 758 

799 REM X PUT CURVE ON SCREEN PT TO PT 
x 

888 COLOR 1:F0R J=i TO ENTR-liIF MARKC 
J3>8 THEN 812 

818 X1=SX(J3:X2=SX(J+13:Y1=SY(J3:Y2=5Y 
(J+13:GOSUB 2238 

812 NEXT J:RETURN 

819 REM X PUT POINTS ON SCREEN X 

828 COLOR i:FQR J=1 TO ENTR:IF HARK(J3 
>8 THEN 826 

822 X=SX(J3:Y=SY(J3:IF X)XR OR X<XL OR 
Y)YB OR Y<YT THEN 826 
824 Y=YB-Y+YT:GOSUB 838+MKER 
826 NEXT J:MKER=MKER+2:IF MKER=8 THEN 
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HKER-9 
828 RETURN 

838 PLOT X,Y:PLOT X~2,Y-2:DRAWT0 X+2,Y 
-2:DRAWTO X+2,Y+2:DRAWT0 X-2,Y+2:DRAWT 
0 X-2,Y~2:RETURN 

832 PLOT X,Y:PLOT X,Y~2:DRAWT0 X+2,Y:D 
RAWTO X,Y+2:DRAWTQ X-2,YlDRAWTO X,Y-2: 
RETURN 

834 PLOT X,YlPLOT X,Y-2:DRAWT0 X+2,Y+2 
:DRAWT0 X~2,Y+2iDRAWTO X,Y~2:RETURN 
830 PLOT X,YlPLOT X,Y+2:DRAWT0 X+2,Y-2 
:DRAWTO X-2,Y-2iDRAWTO X,Y+2:R£TURN 
94? REH * CLEAR GRAPHICS SCREEN « 

958 ? CHR$(125):RAHTOP=PEEK(186):POKE 
186,INT(TOP+1/2563:PQKE 88,5C8L0:PQKE 
89,SC8HI:? CHR$(125):POKE 186,RAHT0P 
952 GRAPHICS 8:0LI5T=PEEK(568)+250*PEE 
K(56i):P0KE DLI5T+3,78:P0KE DLIST+6,6: 
RETURN 

969 REH * DISPLAY GRAPHIC SCREEN UNTIL 
KEY PRESSED * 

978 GOSUB 1488:POKE 764,255 

972 IF PEEK(764)=255 THEN 972 

974 GOSUB 952:GOTO 188 

999 REH * SET ASIDE PLOTTING SCREEN * 

1888 GRAPHICS 8+16:SAV8L0=PEEK(568):5A 

V8HI=PEEK(561):RAHT0P=PEEK(186):POKE 1 

86,(RAHTOP-33):5C8L0=PEEK(88) 

1882 SC8HI=PEEK(89):TOP^RAHTOP:GRAPHIC 
5 8:5C8L8-PEEK(88):5C8HI=PEEK(89) 

1818 SAV8LQ=PEEK(568):SAV8HI=PEEK(561) 

:RETURN 

1199 REH * INPUT FILENAHE * 

1288 POSITION 18,17:? "INPUT FILENAHE" 

i 

1282 POSITION 9,18:? "D: .DAT"; 

1218 P=3:POSITION li,18:FNH$="D:" 

1228 GET H1,K 

1238 IF K=155 THEN 1288 

1248 IF K=126 AND P>3 THEN P=P-i:FNH$( 

P)=" ":? CHR$(K); 

1242 IF K>96 AND K<123 THEN K=K~32 

1258 IF ((K>47 AND K<58) OR (K>64 AND 

K<91)) AND P<11 THEN FNH$(P,P)=CHR$(K) 

:? CHR$(K);:P=P+1 

1268 GOTO 1228 

1288 FNH$(P)=DAT$:RETURN 

1299 REH * SHOW .DAT FILES ON DISK # 

1388 ? CHR$(125):OPEN #2,6,0,"D:*.DAT" 

:TRAP 1348 

1318 FOR K=8 TO 28 STEP 20 

1330 FOR J=1 TO 22:INPUT N2;D$:P0SITI0 

N K,J:? D$;:NEXT J:NEXT K 

1348 GOSUB 1378 

1368 CLOSE #2:TRAP 48088:GOTO 188 


1369 REH * STOP FOR SPACEBAR * 
1378 POSITION 28,22:? 


[PRESS SPACEBAR 


1388 GET #1,K:IF K<>32 THEN 1388 

1398 RETURN 

1399 REH * SWITCH TO GR. 24 * 

1488 5AVCTL=PE£K(559):POKE 559,0:POKE 
568,5AV8L0:POKE 561,5AV8HI:POKE 88,SC8 
LO:POKE 89,5C8HI:P0KE 87,8 
1418 POKE 559,SAVCTL:RETURN 
1449 REH * SWITCH TO GR. 8 * 

1458 SAVCTL^PEEK(559):POKE 559,8:P0KE 

568,5AV8L0:POKE 561,5AV8HI:POKE 88,SCO 

LO:POKE 89,5C0HI:POKE 87,8 

1468 POKE 559,SAVCTL:RETURN 

1499 REH * FIND WINDOW-VIEWPORT TRAN5F 

ORHATION « 

1588 WXL=XMIN:WXR=XHAX;WYT^YHIN:WYB=YH 
AX 

1520 WVXH=(VXR-VXL) / (WKR-WXL) 

1522 HVXA=VXL-WXL*WVXH 
1524 WVYH=(VYT-VYB)/(WYT-WYB) 

1526 WVYA=VY8~WYB«WVYH 

1539 REH * CALC POINTS FOR SCREEN * 

1548 FOR J=i TO ENTR:SX(J)=HVXHKX(J)+W 
VXA:SY(J)-WVYffltY(J)+WVYA:NEXT J 

1542 RETURN 

1549 REH * DRAW GRID & TITLES * 

1558 HXL=295:HYL=13:IF GRDFLG=8 THEN H 
XL=58:HYLrl58 

1551 COLOR 1:PL0T 45,13:DRAWT0 45,163: 
0RAWTO 295,163IFOR YTL=13 TO 163 STEP 
15 

1552 PLOT 42,YTL:DRAWT8 HXL,YTL:NEXT Y 
TL:FOR YTS=16 TO 168 51EP 3'.PLOT 45,YT 
SlDRAWTO 58,YTSlNEXT YTS 

1554 FCR XTL=45 TO 295 STEP 25:PLOT XT 

L,166:DRAWT0 XTL,HYL:NEXT XTL 

1556 FOR XT5=45 TO 295 STEP 5:PLOT XTS 

,163:DRAWT0 XTS,158:NEXT XTS 

1560 Yrl84:L=LEN(XTTL$):IF L=0 THEN 15 

64 

1562 X-(48-L)/2:DADR=ADR(XTTL$):A^USR( 
TADR,X,Y,DADR,L,L) 

1564 IF EX 08 THEN GOSUB 1592 
1578 X=8:L=LEN(YTTL$):IF L=8 THEN 1574 
1572 Y=(192-L#8)/2:DADR=ADR(YTTL$):A=U 
5R(TADR,X,Y,DADR,L,l) 

1574 IF EY<>8 THEN GOSUB 1596 
1588 L=LEN(GTTL$):IF L=8 THEN 1598 
1582 Y=0:X-(48-L)/2:DADR-ADR(GTTL$):A= 
USR(TADR,X,Y,DADR,L,L) 

1598 RETURN 

1592 X=33:D$=E$:DADR=ADR(D$):A=U5R(TAD 


):L=LEN(D$3;A=USR(TADR,X,Y,DADR,L,L) 
1594 RETURN 

1596 Y=172: : DADR=ADR (D$) : A=U5R (TA 

DR,X,Y,DADR,4,23;X-X+2:Y-Y+4:D$-5TR$(E 
Y);L-LEN(D$):A-USR(TADR,X,Y,DADR,L,L) 

1598 RETURN 

1599 REH * DETERHINE EXPONENT 8 SCALE 
VALUES * 

1688 XSAV=XHAX:YSAV=YHAX 

1688 XHAX=ABSCXHAX):IF XHAX>rl AND XHA 

X<18808 THEN EX-8:G0T0 1788 

1618 IF XHAX>1888 THEN 1658 

1628 FOR £X=-1 TO ~58 STEP -l'.Xi-XMAX* 

INT((18 A ~EX)+8.81) 

1638 IF X1>1 THEN 1788 
1648 NEXT EX 

1658 FOR EX=i TO 58:X1=XHAX/INT((10 aek 
3+0.81) 

1668 IF XI<18 THEN 1788 
1678 NEXT EX 

1788 YHAX=ABS(YHAX):IF YHAX>=1 AND YHA 

X<1888 THEN EY=8:GOTO 1888 

1718 IF YHAX>188 THEN 1758 

1728 FOR EY=-1 TO -58 STEP -1:Y1=YHA^ 

INT((18 A -EY)+8.81) 

1730 IF Y1>1 THEN 1888 
1748 NEXT EY 

1758 FOR EY-1 TO 58:Y1=YHAX/INT((10aev 
3+0.81) 

1760 IF Yl<18 THEN 1888 

1778 NEXT EY — 

1808 FOR J=i TO 11:XSCL(J)-X5AV-(J-13* 

HSDX:YSCL(J)=YSAV-(J-i)*HSDY 

1818 IF EX<8 THEN XSCL(J)=:X5CL(J)*18A- 

EX 

1812 IF EX>8 THEN X5CL(J)rX5CL(J3/18AE 
X 

1828 IF EY<8 THEN YSCL(J) =YSCL(J)*10a- 
EY 

1822 IF EY>8 THEN Y5CL(J)=Y5CL(J)/10ae 
Y 

1838 NEXT J 

1848 RETURN 

1849 REH * PRINT SCALES * 

1858 DADR=ADR(D$):X=2:Y=8:F0R J=1 TO 1 
1:N=YSCL(J):XFLG=0:GOSUB 1988:A=U5R(TA 
DR,X,Y,DADR,LEN(D$),3):Y=Y+15:N£XT J 
1868 X=5:F0R J=ii TO 1 STEP -1:Y=168:I 
F (J/23=INT(J/2) THEN Y=176 
1862 N=XSCL(J):XFLG=1:GOSUB 1988:A=USR 
(TADR,X,Y,DADR,LEN(D$),4):X=X+3:NEXT J 

1898 RETURN 

1899 REH * SCALE NUHBER * 

1988 SIGNED:IF N<8 THEN SI6N=1 


R,X,Y,DADR,4,4):X=X+4:Y=Y-4:D$=STR$(EX **18 N=ABS(N):D$=STR$(N) 


9 



xy plot 
cont 

1520 IF INT(M)<>M THEM A$^LEM{A$)U):: ,, 
0080" 

1530 IF XFLG=8 THEM IF LEN(A$)>3 THEM 
A$=A$(1,3) 

1540 IF XFLC=1 THEM IF LEM(A$)>4 THEM 
A$rA$(l,4) 

1542 L=LEM(A$):IF A$(L,L)=".“ THEM A$( 
L,LJ= M " 

1550 IF 5IGM=1 THEM FOR K=1 TO LEN(A$) 

;A$(K,K)-CHR$(ASC(0$(K)1+128}:MEXT K 
1560 RETURN 

2220 REH * CLIPPING ROUTINE * 

2222 REH * SEE ANALOG #2 P. 25 HAR/APR 
*81 (TOH HUDSON) * 

2230 Ll-0:L2-0:Ri-0:R2-0:Tl=8:T2=8;Bi- 
0*.B2=0 

2240 IF X1<XL THEM Ll-lsGOTO 2268 

2250 IF X1)XR THEM Rl=l 

2268 IF Y1>YB THEM B1=1:G0T0 2288 

2278 IF YKYT THEM Ti=i 

2288 IF X2<XL THEM L2=1:G0T0 2308 

2258 IF X2>XR THEM R2=l 

>8 IF Y2>YB THEM B2=1:G0T0 2320 

»„18 IF Y2<YT THEM T2=l 

2328 IF Li+L2=2 OR Rl+R2=2 OR Ti+T2=2 
OR Bl+B2=2 THEM RETURN 
2338 X3=X1;Y3-Y1:X4=X2:Y4-Y2:GOSUB 235 
8 

"'<8 L1=L2:R1=R2;T1-T2:B1-B2 

J Xl-HHiYl-YH:X3-X2iY3=Y2:X4=Xi:Y4= 
Yl:GOSUB 2358 

2368 IF X1<XL OR X1>XR OR Y1<YT OR Yl> 
YB OR XH<XL OR XH>XR OR YH<YT OR YH>YB 
THEN RETURN 

2378 PLOT XI,YB-Yi+YT:ARAHTO XH,YB-YM+ 
YT 

2380 RETURN 

2358 IF Li*Tl*Bl+Rl=8 THEM XH=X3;YH=Y3 
;RETURN 

2488 IF LI THEM XH=XL:YH=Y3+(Y4-Y3)*(X 

L~X3)/(X4-X3):X3=XH:Y3=YH:IF Y3>=YT AN 

A Y3<=YB THEM RETURN 

2418 IF R1 THEM XKfcXR:YH=Y3*(Y4-Y3)*(X 

R-X3)/CX4-X3JIX3-XH:Y3=YH:IF Y3>=YT AN 

A Y3<=YB THEM RETURN 

2428 IF Bi THEM YH=YB:XK=X3+(X4-X3)*(Y 

B~Y3)/(Y4-Y3);X3=XH;Y3=YH:IF X3>=XR AN 

A X3<-XL THEN RETURN 

2438 IF Ti THEM YH=YT:XH=X3*(X4-X3)*(Y 

T-Y3)/(Y4-Y3):X3=XH:Y3=YH:IF X3>=XR AN 

A X3<=XL THEM RETURN 

2440 RETURN 

*55 REH * DUMP GR. 8 SCREEN TO PRIMTE 
# 

3808 Se=PEEKC88)+PEEK(85)*256 


3818 LPRIMT CHR$(27);"A";CHR$(6) 

3828 FOR Y=8 TO 185 STEP 3:FOR X=0 TO 
35 STEP 5lP=SCF48*Y+X:A$=CHR$C0):A$(12 
0)=CHR$(8):A$(2)-A$ 

3838 A=USR(1535,P,AAR(A$)):LPRIMT CHR$ 
(27); ,, L”;CHR$(128); CHR$(8) ; A$; s NEXT X: 
LPRIMT :NEXT V 
3848 RETURN 

3855 REH * HL ROUTINE USEA IN PRINTER 
AUHP * 

3188 RESTORE 3118:FOR J=1536 TO 1635:R 

EAA A:POKE J,A:NEXT J 

3118 AATA 80,40,0,104,104,133,204,184, 

133,283,104,133,206,104,133,285,165,0, 

133,285,165,128,133,207 

3112 AATA 165,3,133,212 

3128 AATA 162,8,134,208,188,8,6,177,28 

3.37.287 

3122 AATA 248,6,165,212,5,288,133,208, 

6.212.6.212.232.224.6.288.232.164.285, 
165,208,18,145,285 

3124 AATA 280,145,285,238,285,238,285, 
288,145,285,230,285,234,234,234,234,23 

4.234.234.234.78.287 

3138 AATA 144,153,230,283,288,2,238,28 
4,165,285,201,128,144,177,56 
3148 RETURN 

3558 REH * HL ROUTINE FOR GR. 8 CHARAC 
TERS * 

3555 REH * MODIFIED VERSION OF ANALOG 
#23 P. 57 (OCT '84, TOH HUDSON) * 

4008 RESTORE 4818:AIM T$(257):FOR J=1 
TO 257:READ A:T$(J,J)=CHR$(A):NEXT J:T 
AAR=AAR(T$):RETURN 

4810 AATA 216,104,184,184,133,283,184, 

184,133,284,165,0,133,285,6,204,38,285 

,6,284,38,205,6,284,38 

4028 AATA 205,165,204,24,101,88,133,20 

6.165.205.181.85.133.287.6.284.38.285, 
6,284,38,205,165,284,24 

4838 AATA 181,286,133,206,165,285,181, 

287,133,207,165,206,24,181,283,133,206 

,141,126,6,165,287,185,0,133 

4848 AATA 287,141,127,6,104,133,213,18 

4,133,212,184,104,141,122,6,286,122,6, 

184,184,141,124,6 

4058 AATA 165,8,141,125,6,141,123,6,16 

5,8,141,121,6,172,123,6,177,212,16,5,2 

86,121,6,41,127,281,32 

4866 AATA 176,5,24,105,64,16,7,281,56, 

176,3,56,233,32,133,284,165,0,133,285, 

133,288,6,284,38 

4870 AATA 205,6,204,38,205,6,204,38,28 
5,165,205,24,105,244,2,133,205,164,288 
,177,284,77,121,6,172 


4875 AATA 125,6,145,286 

4888 AATA 238,288,165,288,201,8,248,15 

,165,286,24,185,48,133,286,144,227,238 

,287,288,223 

4858 AATA 144,168,238,125,6,238,123,6, 
286,122,6,48,43,173,125,6,205,124,6,28 
8,22,165,8,141,125,6,24,173,126,6 
4188 AATA 185,64,141,126,6,173,127,6,1 
85,1,141,127,6,173,126,6,133,286,173,1 
27,6,133,287,24,144,288,56 


multiplication 

coni 


1338 AATA AO IT AGAIN,SHARP,BRAVO 
1348 AATA ** GO **,HUMDINGER,NON,GOOD 
1358 AATA SUPER,HOT DOG,FIRST RATE 
1368 AATA TOP-NOTCH,JIH-RANAY,GREAT 
1370 AATA SUPER FINE,TIP TOP,FAR OUT 
1388 AATA FANTASTIC,SUPER STAR,KENNER 
1358 AATA FIRST CLASS,BULLY FOR YOU 
1488 AATA REA HOT,EXCELLENT,HOME RUN 
1418 AATA THREE CHEERS,HELL DONE 
1428 AATA HURRAY,CHAMPION,CRACKAJACK 
1438 AATA CAPITAL JOB,BANG UP JOB 
1448 AATA GOOD SHOH,MARVELOUS 
1458 AATA GOOD AS GOLD 
1468 REH .... Enter wore messages here 

1478 AATA ENA 




tit 7!JCPM 
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1 REM HMKKXKKKKItKMMItKKMKKKICKKMMKKK 

2 REM RIF COVERSION FILE UTILITY 
J REM BY BAVIB FULLER 9/6/64 

4 REM ATARI ANONYMOUS OF RI 

5 REM USER'S CROUP 

6 REM 72 CRYSTAL OR 

7 REM WARWICK, RI 02889 

8 REM MKKNNKNKKKMKKKKKNKMNKKKKMKKK 
10 TRAP 1218:G0SUB 1248:? "K";TTL$ 


GET FILE NAME 


38 ? " by David Fuller" 

40 ? :? " How nany Drives (1 or 2) ";: 
INPUT DRIVES 

58 IF DRIVES<1 OR DRIVE5)2 THEN GOTO 4 
8 

68 POSITION 2,6:? "1. Fileitanager" 

78 ? "2. Other" 

88 ? :? "Enter Type of File ";:INPUT A 
NSR$ 

98 IF ANSR$<)"1" AND AN5R$<)»2" THEN G 
OTO 68 

188 IF AN5R$="2" THEN TYP=2:G0T0 1808 
118 TYP=1 

128 ? :? “ insert Fileitanager Data Dis 
k" 

138 ? “ in Drive 1 and press gi!aiiH:rt 
W'i . INPUT ANSR$ 

148 ? »*";TTL$:? :? » Files on the 
Disk":? LIN$ 

158 INFIL$="DiOPEN ltl,6,8,INFIL$ 
168 INPUT 81;FLNAH$:IF FLNAH$(5,81="FR 
EE” THEN 190 

170 IF FLNAH$(ii,13)="DAT" THEN ? FLNA 
H$ (1,8);" ";FLNAH$(14,17) 

188 GOTO 168 

198 CLOSE Hi:? LIN$:? " Which File to 
Convert ":? " ";:INPUT ANSR$:INFIL 

$="D:":INFIL$(3)=AN5R$ 

288 INFIL$ CLEN(INFILS)+1)=".FHT" 

210 REH umxmiunzm 

228 ? "N»;TTL$:POKE 752,0 

238 OPEN 81,4,8,INFILS 

248 INPUT 81;NUHFLDS 

258 INPUT 81;FLDNS 

268 HAXLEN=8 

278 FOR N-l TO NUHFLD5:INPUT 111 j A :FN(N 
)-A.*IF A>HAXLEN THEN HAXLEN=A 
288 NEXT N:A=8 

298 CLOSE 111: LE-LEN (INFILS) : INFIL$ (LE- 

3,LE)=".IDX":OPEN HI,4,8,INFILS 

388 INPUT 81;A:NUHR=A-i 

318 FOR N=1 TO 4.‘INPUT HI;IDX1:NEXT N: 

INPUT 81 ;IDX2:INPUT 81;IDX3 

328 LINES=0:5CR5=i:SCR (1,1)=1:XX=8 

338 FOR N-l TO NUHFLDS:FT(N)=0 


348 IF FN(N)>180 AND FNCNX186 THEN FN 
(N)=14:FT(N)=1 

342 IF FN(N))185 THEN FN(N)=FN(N)-185: 
FT(N)=8 

345 XX=XX+FN(N) 

358 X=INT(FN(N)/25) 

368 IF X=FN(N)/25 THEN LINE5=LINE5+X:G 
OTO 388 

378 LINES=LINES+i 

388 IF LINES=20 THEN SCR(5CRS,2)=N-1:5 
CR5=5CR5+i5 LINE5-0:SCR(5CR5,1)=N:XX=FN 
(N):GOTO 398 

385 IF XX)255 THEN 5CR(5CR5,2)=N-1:5CR 
S=5CRS+1:LINES-8:SCR(5CR5,1)=N:XX=FN(N 
) 

398 NEXT N:SCR(SCRS,2)=NUHFLDS 

488 ? :? "File CHRS(34);INFILS(3,LEN 

(INFIL$)-4);CHRS(34);" has ";NUHR;" re 

cords" 

410 ? ,5CR5j" Screen(s)" 

428 ? ,"Field nawes" 

438 ? LINS:A=0:B=5:C=3 

448 FOR N=i TO NUMFLD5*12 STEP 12:A=A+ 

1 

458 8=0+1:IF A=ll THEN C=20:B=6 

460 IF A=18 THEN C=2 

478 POSITION C,8:? A;". »;FLDNS(N,N+il 

) 

488 NEXT N:POSITION 2,16:? LIN$ 

498 ? " Is this the right File (Y/N) 
";:INPUT ANSRS 
588 IF ANSRS<)"Y" THEN RUN 
518 ? :? "How Many records to convert 
INPUT CPY 

528 PASS=l:IF CPY<NUHR THEN PASS=2 
538 5TART=1 

548 INFIL$(LEN(INFILS)-2)="DAT" 


WRITE DIF FILE 


568 ? :? " Enter nane of output file" 
:? " up to 8 characters ";:INPUT ANS 
R$ 

578 OUTFIL$="D":OUTFIL$(2)=STR$(DRIVES 
):OUTFIL$(3)=":»:OUTFILS(4)=ANSR$:OUTF 
IL$(LEN(OUTFILS)+1)=».DIF" 

588 IF DRIVES=1 THEN 60T0 610 
598 ? :? "Insert*Desitnation disk " 

688 ? " in Drive 2 and press 
I";:INPUT ANSR$ 

618 ? "X";TTLS:? :? » Processing.. 

620 POSITION 5,8:? "Total Records: »;N 
UHR 

638 POSITION 5,18:? "Field: ";:POSITIQ 
N 5,12;? "Record 8:"; 

648 QUT$=CHR$(34) 


658 OPEN H2,8,0,OUTFIL$ 

668 IF PAS5=2 AND START)1 THEN GOTO 68 
8 

678 CLOSE Hi:OPEN 81,4,0,INFILS:NOTE If 
1,SEC,BYTE 

680 IF STARTOl THEN CPY=NUHR 

698 ? #2;"TABLE":? 82;"8,i":? 82;QUTS; 

MTS:? 112;"VECTORS":? 82;»8,»;5TRS(CPY 

-5TART+1):? 82;QUTS;QUTS:? 82;"TUPLE5" 

788 ? 112;"8,";5TRS(NUHFLDS) :? 82;fiUTS; 

QUT$ 

718 ? 82;"DATA":? 112;"8,8":? 82;QUTS;Q 
UTS 

738 FOR Z=1 TO NUHFLDS 

748 IF TYP=2 THEN POSITION 13,16:? Z:G 

OTO 768 

758 POSITION 13,18:? FLDN$(Z*i2-il,Z*l 
2 ); 

768 ? 82;"-l,8":? tt2;"B0T" 

778 ST=ST+FN(Z) 

788 FOR X=5TART TO CPY 

798 POSITION 15,12:? X;" »; 

888 A=8:S=i:5PACES=8 
818 INPUT m;INPT$ 

815 IF ASC(INPT$(1,1))=255 AND 5CRS=1 
THEN GOTO 818 

817 IF ASC(INPT$(1,1))=255 AND SCR5)1 
THEN FOR Xl=i TO 5CR5-1:INPUT lll;INPT$ 
:NEXT XI‘.GOTO 818 

828 IF Z<5CR(5,1) OR Z)SCR(5,2) THEN _ 
=A+LEN(INPT$):INPUT #1;INPT$:S=S+1:GOT 
0 828 

838 IF FT(Z)=8 THEN GOSUB 1388:? 82;"- 
1,0":? #2;6UT$;INPT$(ST-A-FN(Z)+1,5PAC 
E5);QUT$ 

848 IF FT(Z)=l THEN ? II2;»8,»;VAL(INPT 
$(ST-A-FN(Z)*1,ST-A)):? 82;"V" 

858 IF SOSCRS THEN FOR XX=5+1 TO SCRS 
:INPUT 81;INPTS:NEXT XX 
878 NEXT X 

888 IF Z=NUMFLD5 THEN NOTE HI,SEC,BYTE 
898 POINT 81,SEC,BYTE 
988 NEXT Z 

918 ? 82;"-1,8":? 82;"EOD":CLOSE 82 

928 IF CPY=NUHR THEN GOTO 988 

938 ? :? ;? “Do you want to convert th 

e rest of the":? " records ";:INPUT A 

N5R$:IF AN5R$(1,1)<)"Y" THEN 988 

948 POINT 81,SEC,BYTE 

958 START=CPY+i:5T=8 

968 IF DRIVE5=2 THEN ? :? "insert new 

destination disk ":? " and press BriaNf i* 

inil ";: INPUT ANSR$ 

978 ? "N";TTL$:GOTO 568 — 

988 POSITION 5,19:? " TOT!M »«:FN5 




oont 


difoonv 


GET OTHER FILE IHfO 


me ? "*»;TTL$:? » convert Other Fi 
Ie" 

1018 ? :? "How many Fields in File 
INPUT NUHFLB5 

1828 ? :? "How nany Records in File 
:INPUT NUMR:? 

1838 ? :? "How nany records to convert 


1278 BIM CHG$(255),INPT$(255),X$(i),5T 
yPE$(23,FLB1$(255),FLB2$(2553,FN(28),F 
T(283,SCR(18,2),TEST$ (255) 

1288 LIN$-"- 

-":? LIN$:A=8:8=5:C=2 

1298 RETURN 

1388 TE5T$=INPT$(5T-A-FN(Z)n,5T-A) :SP 
ACE5=ST-A 


“JSINPUT CPYS? 

1848 IF CPY<NUHR THEN PA5S=2 

1850 FOR Zzl TO NUHFLBS 

1068 ? "Length Field #";Z;:IHPUT X:FN( 

znx 

1878 ? "Type of Field Cgtring/QumberJ 
:INPUT ANSR$:IF ANSR$(1,1)<>"5" AND 
ANSR$(i,i)<}"N" THEN ? "S OR N":G0T0 1 
078 

1088 IF ANSR$(lj,l)-"N" THEN FT(Z)=1:60 
TO 1100 
1898 FT(Z)=8 
1188 NEXT Z 

1105 A=8:F0R N=i TO NUMFLBS:A=A+FN(N); 
*T N;IF A)255 THEN ? :? "Record leng 


1318 FOR X1=LEN(TE5T$) TO 1 STEP -1 
1328 IF TE5T$(Xi,XI)<>" » THEN POP :RE 
TURN 

1325 5PACE5-5PACE5-1 

1338 NEXT XI:SPACES^SPACES+l:RETURN 


EL-ACrsHCL-E 




940 POKE KEY,MT:? "Choice-)";:G£T #1,N 
:? M-48 

958 IF NOT (H=49 OR M=58) THEN H=USR( 


longer than";? » 255 characters»:EN BELL);? "please choose either IKHBI 

":? :60SUB 1055:GOTO 948 


1107 5CR5=1;SCR(1,13=1:SCR(1,2)=NUMFLB 
5 

1118 ? »*";ttl$:? ;? » tt Length Ty 
pe":? LIN$ 

' FOR Z-i TO NUHFLBS:? " ";Z;" » 

z—(Z3;" »; 

1138 IF FT(Z3=8 THEN ? "String" 

1148 IF FT(Z)=l THEN ? "Number" 

1158 NEXT Z:? LIN$ 

1168 ? :? "Are all entries Correct (Y/ 
N) ;INPUT ANSR$:IF AN5R$(1,1)<>»Y" T 
HEN GOTO 1088 

1178 ? "*»;TTL$:? :? "Enter none of So 


968 ? :? "How nany holes placed on gri 
d? ICSII 1 ’:? 

978 POKE KEY,MT:? "Holes ->";:GET #1,N 
:H0LE5rN-48:? HOLES 

988 IF HOLES<1 OR H0LE5>6 THEN H=USR(B 
ELL):? "please choose from l iM P 1 :? ;G 
OSUB 1855:GOTO 970 

998 ? :? "113381":FOR X=8 TO 9:FOR Y=8 
TO 9:A(X,Y)=0:NEXT Y:NEXT X 
1008 IF H=58 THEN I860 
1810 ? "Give me the 'x,y‘ co-ordinates 
at the prompt 'fl* then hit IQMEQQf: 


urce File":? " example: TEST.DAT ";: 
INPUT ANSR$ 

1188 INFIL$="B:":INFIL$(3)=AN5R$ 

1198 5TART=1 

1288 ? »*»;TTL$:GQTO 568 

1218 ERR=PEEK(195):ERLIN=PEEK(186)+256 

*PEEK(187):? :? » ■H3gpf «:ERR: 


AT LIHE 


1228 ? :? " Press fi:1*(M;fc to continu 
e ";:INPUT ANSR$ 

1230 RUN 


SET UP VARIABLES 


1258 ? "*i";:BIM TTL$(34) ;TTL$=" MU'MId 


1RT TO DIF FILE UTILITY 


17 68 BIM ANSR$(2553,INFIL$(17),FLBN$(2 
,LIN$(483,CHGFLB$(12),FNCT$(48),FLN 
Hfl$ (173, OUTFIL$ (173, OUTS (13 


1828 FOR CHS=1 TO HOLES 
1825 TRAP 1825 

1838 ? CH5;"fl ";:INPUT A,B:IF A(A,B)=I 
THEN H=USR(BELL):? "points already ch 
osen*":? :GOSUB 1855:GOTO 1838 
1848 IF (A<1 OR A>8) OR (B<1 OR B>8) T 
HEN M=USR(BELL):? "point(s) must be be 
tween IEBDH":? :GOSUB 1055:GOTO 1825 
1858 A(A,B3=i:NEXT CHS STRAP 40888;GOTO 
1098 

1855 FOR BLY=i TO 308:NEXT BLY:? "tttfl 
CD";: RE TURN 

I860 FOR PLC=1 TO HOLES 

1870 B=INT(RND(03*8)+1:C=INT(RNB(03*8) 

+1 *.IF A(B,C)=1 THEN 1078 

1880 A(B,C)=1:NEXT PLC 

1898 SC0R£=8:CHR1-45;H0LE=Ai P=8 :S=8:EP 


5$r»“ 


1188 H=USR(BELL):? "H":P05ITI0N 13,8:? 


BLACKHOLE 


ir* 


:POSITION 28,0:? "hole 


(S3 ->";HOLES 

1110 POSITION 11,3:? A$:FOR X=1 TO 14 
STEP 2:POSITION 11,3+X:? B$:POSITION 1 
1,4+X:? C$:NEXT X 

1128 POSITION 11,18:? B$:POSITION 11,1 


9:? 0$ 

1130 RESTORE 1148:FOR CNR=1 TO 4:REAR 


A,B:POSITION A,B:? "-":NEXT CNR;A=18:B 
~2 :A1=A:Bi=B:POSITION A,B:? "fi" 

1148 BATA 10,2,28,2,18,20,28,28 
1158 GOTO 50 

1153 REM 

1154 REM . ** initialize ** 

1155 REM 

1160 BIM A(9,93,A$(20),B$(28),C$(20),B 
$(283,MKR$(28),EPS$(1):BELL=1536 
1178 KEY=764:MT=255:B£LL=1536;POKE 16, 
112:POKE 53774,112 

1188 A$-»| i i i i i f.Tl ” 

1198 B$="| I I II II II" 

1280 C$-" | 1 | f f-HHH " 

1210 B$-" i 1 1 1 *■ |||J 

1228 MKR$="abcefghijklmnop" 

1230 RESTORE 1240:FOR Z=0 TO 29:REAB B 

YTE:POKE BELL+Z,BYTE:NEXT Z 

1248 BATA 104,169,8,141,8,210,169,48,1 

41,8,218,168,176,162,255 

1258 BATA 142,10,212,282,208,250,136,1 

40,1,218,192,160,288,248,96 

1260 OPEN 86,4,8,"S:":0PEN B1,4,0,"K:" 

SPOKE 718,0:POKE 752,1:P0KE 789,192:P0 

KE 16,112:POKE 53774,112 

1278 ? "5":POSITION 14,18:? 'WB2S333& 

G1»:F0R A=-14 TO 14:POKE 789,206-ABS(A 

3:FOR BLY=1 TO 10:NEXT BLY:NEXT A 

1288 ? "N":POSITION 18,18:? "by":POSIT 

ION 13,12:? "-E0 5CHEWRI-" 

1298 FOR A=-14 TO 14:POKE 709,286-AB5( 
A):FOR BLY=1 TO 18:NEXT BLY:NEXT A:? " 
5":FOR BLY-1 TO 38:NEXT BLY:GOTO 928 
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BUGBUSTERS 

Here are the first people who have agreed to help others with their 
computing problems. 

Greg Menke 

22500 Old Hundred Road 
Barnesville, MD 20838 
Assembly Language 

Ralph Walden 
1821 Jefferson 
Eugene, Or. 97402 
(503) 344-8142 
Assembly language 
C 

Jiva 

(503) 747-9014 
New users 
Basic 
Action 

Please do not call any of these people after 10PM, local time. 



News and Reviews 
by Mike Dunn, Co-Editor 

By now, most of you must know about all 
the exciting new computers from Atari; if not, 
you can read about them in this issue. life are 
all looking foward to seeing and playing with 
these fantastic machines, and will report the 
results as soon as possible. Our local 
dealer, Computer Palace is probably the 
largest remaining Atari dealer and should be 
one of the first to get them. Their new 
catalog is out, and if you want to get one of 
the first machines, you might contact them 
(2160 W. 11th Ave., Eugene, OR 97402, 
1-800-452-8013). ACE will keep you posted, 
but, I'm afraid to announce, we need to 
increase fees because of increased postal 
expenses• 

Starting march 15, 1985, ACE will be $14 
a year. If you renew early, you can still do 
so for $12 if we get it before that date. To 
know when you have to renew, the number code 
on the mailing label is the month and year you 
last renewed, so your subscription is up the 
month before, eg. 2P4 means your renewal date 
is January, 1985. To encourage early 
renewals, so we can pay some bills, we have a 
special offer until March 15. An early 
renewal, plus any Disk or Tape in the library 
for only $20; $25 for a double sided disk!! 


Speaking of disks, some new ones are 
going to be ready soon at the usual prices. 
ACE modem disk has several specialized 
programs, including a Atari 1030 Modem program 
allowing downloading and 2 versions of KERMI' 
written in Action! and compilied and debug 
by our friends at MicroBits -- one for theiF 
Modem and one for those using the 850 
interface. Stan Ocker's complete XYPlot and 
XYGraph programs as described in this issue 
take up an entire disk and will be available. 
We also have a new "freeware" program, a Word 
Processor written in BASIC by Larry Farmer, 
available for the asking if your order has a 
spare disk side to put it on. Other 
"freeware" programs are The Financial DataBase 
by Richard Kalagher and RAM test a 
professional level program donated to ACE by 
MicroBits (225 3rd AVE. SW, Albany, OR 97321). 

Robin Sherer, who used to be Santa Cruz 
Educational Software, has recently moved to 
Eugene and formed a new company, Computers 
Made Simple! (1974 Buck St., Eugene, OR 97405 
(503)344-2767). Robin was one of the first 
people to write about the Atari, and started 
his Tricky Tutorials teaching many Atari 
owners to program. These consist of a disk or 
tape of programs, as well as a well written 
manual teaching various aspects of how yo*'r 
Atari works. Subjects include such things 
Display Lists, Scrolling, Page Flippxrrg 

(discovered and developed by Robin, I 

believe), PM graphics, etc. When they first 
came out they cost $30 and up, and were well 
worth it. Now, you can get them for only 

$9.95 each direct from Robin. He has many 
other utilities and programs for very 
prices. And for those who have had probi _ „ 
getting his wonderful new book. The Master 
Memory Map, Robin will send it to you for the 
list price ($16) and he will pay the shipping. 
He also has his original 40 page version 
available to ACE members for only $4. 

Another bargain this month is from LJK 
(7852 Rig Bend Blvd., St Louis, M0 63119). 
You can get Letter Perfect with its built in 
spelling checker, Spell Perfect and Data 
Perfect for $99.95 for all three! 

Ralph Walden's implementation of the C 
programming language, called "ACE-C", is 

available from the library. Complete 

documentation is on the disk. If you want to 
learn a new language, this is an excellent way 
to do it. You will need a book which explains 

how to program C in general. The 

documentation suggests a good one. 



XYEIMTRY UPDATE 

I seem to have made an oversight in writing ‘XYENTRY’. I filled it 
with all sorts of fancy things; display list interrupts, PM graphics and 
even a timer program running in the background, forgetting I was plan¬ 
ning to load in other programs from this one. So all of the fancy things 
lave to be disconnected. I suppose it can be done but it’s far easier to 
_ not have used the routines in the first place. 

If you want to use ‘XYENTRY’ as given in the last issue, you can. 
Just create your file and then hit system reset and load ‘XYPLOT’ to 
graph it. If however you want to run ‘XYPLOT’ automatically from 
‘XYENTRY’ the following changes are necessary: 

(1) in line 20 use underscores instead of blanks in NBLK$ 

(2) enter line: 25 POKE 708,34:POKE 709,178:POKE 710,184:POKE 
712,10:DLIST = PEEK(560) + 256*PEEK(561):POKE DLIST + 3,70:POKE 
DUST+ 6,6 

(3) get rid of the GOSUB 3000 in line 30 and DELETE all lines above 
2000 

(4) replace the POKE 694,0 in line 310 with POS. 
COL-1,ROW:PRINT“”; and get rid of the POKE 694,0 in line 410 

(5) line 420 should read: IF K = 155 THEN 500 

(6) add OR K = 46 to the others in line 360 

(7) delete lines 899 through 920 and any references to these lines 
(there are quite a few) 

(8) add a semicolon to the end of the print statement in line 1082 

(9) copy lines 80-84 and 742 from ‘XYPLOT’ 

(10) line 170 should read: ?CHR$(125):POS. 10,10:?“LOADING 
XYPLOT”:RUN“D:XYPLOT” 

You should of course have ‘XYPLOT’ on your disk. These and a few 
minor cosmetic changes should allow you to run either program from 
the other. The slow initialization time of ‘XYPLOT’ can be helped by 
putting the ML program in strings. The result (I’ve done it) is all but 
unreadable in print though so I’ve provided the DATA statement 
listing for printing in the newsletter. 

— Stan Ockers 

XYGRAF PART II 

XYPLOT’ is the graph drawing portion of ‘XYGRAF’. It takes files of 
X-Y data from disk and converts them to X-Y graphs on the screen. 
Provision has been included for dumping the screen to a Gemini 10X 
print (an Epson MX80 with Graftrax should work as well). You may plot 
more than one file on the same screen. Any points falling outside the 
limits determined for the initial plot will be clipped. Points may be 
Notted individually or a line connecting point-to-point may be 

lected. 

When the program is initialized, a set of data from disk may be read 
in automatically. You will be presented with a number of options. If 
you wish a different .DAT file select number (1). Option (3) will list all 
.DAT files on the disk. Selection (2) will plot a graph and provide axes. 
Scaling will be done using the minimum and maximum values of X 
and Y as limits. Any previous graph will be cleared when using this op¬ 
tion. 

You may wish to choose your own limits, provide axes titles and 
choose point or line plotting. If so, select option (4) before using (2). If 
you wish to draw a line plot as well as marking individual data points, 
you can use option (2) for one, (say line), go to the choices menu (4) 
and switch to the other. When you return to the main menu, option (5) 
can be used to add the points. Option (5) can also be used after 
loading additional files from disk to give multiple curves on one graph. 
Remember, the limits will be those determined when first using op¬ 
tion (2) and any points outside these limits won’t appear. 

Any time you want to display the graphics screen use option (6). It 
will be displayed until another key (I use the spacebar) is pressed. 
Selection (7) prints the screen to a Gemini 10X printer. The pixels are 
tripled up horizontally and doubled up vertically for 960 X 384 dots. 
This takes a little while so be patient. You can clear the graphics 
screen using option (8). You may wish to do this if you want to plot a 
curve without axes. If your data needs to be changed, option (9) will 
automatically load ‘XYENTRY’. 

Choice (4) of the main menu brings up another menu providing a 
number of options. The first lists the current values of the limits of X 
and Y. If you want to change any of these, choose (1) and you will be 
presented with yet another menu. As you pick limits try and make the 
difference between them multiples of 10. This will give you the best 
-ale values. If Y values fall between 1 and 1000 they will be listed 
^normally on the graph, otherwise you will get numbers between 1 and 
10 expressed to tenths with an exponent in the lower left corner. X 
scale values work much the same except there is a little more room 
so you get numbers between 1 and 10000 or decimal values to hun¬ 
dredths. Negative numbers are printed in inverse. The spacebar will 
return you to the choices menu and used again will return you to the 
main menu. 


Titles may be placed on the axes or across the top (graph title) us¬ 
ing choices 2,3 or 4. The titles will be approximately centered on the 
axes. You may choose either a full grid or just tic marks by toggling 
with choice 5. The final choice (6) determines if just points or a line 
between points will be plotted. 

I haven’t had time to extensively test this program so be sure to let 
me know of any bugs or suggestions for improvement. 

— Stan Ockers 
R.R. #4, Box 209 
Lockport,IL 60441 


NOTES: 

The material from Stan Ockers is unusually voluminous this month. 
We are able to present only part of his listings in the newsletter. If you 
want the whole diskfull of programs, you may obtain it from the club 
Librarian. 

We omitted a second listing to use with the Computer Appliance In¬ 
terface from last month. This listing is an automatic telephone dialer. 
Look for it in this issue. 


SERPENT’S STAR 

The Serpent’s Star by Broderbund is a graphics adventure set in 
Tibet. You are Mac Steele, world famous archaeologist and treasure 
seeker. Your quest is for the Serpent’s Star, a legendary gem which is 
supposed to grant immortality to its owner. The key to finding the 
gem lies in thirteen ancient scrolls. 

Ten of these scrolls lie in a museum in Tibet, the rest are waiting for 
you in the wilderness. After translating the scrolls to find the resting 
place of the gem, you must journey to Kara-Koram, a city existing for 
only one day a year. In your way lie kleptomaniactic monks, blood¬ 
thirsty wolves, and a fellow Westerner who cannot get drunk (no mat¬ 
ter how many drinks you buy him). Are you man enough to handle 
these challenges? 

Now for the nitty-gritty. The Serpent’s Star is an adventure using 
typed commands, with an added graphics package designed to aid in 
the adventure, as well as making the whole lot more enjoyable and 
less the eyesore straight text adventures can be. The program in¬ 
cludes an on/off toggle for sound, although I didn’t find much sound 
anyway. The road graphics are o.k., pretty much the same scenes no 
matter which road you are on. There are some outstanding graphics in 
other areas, wnicL more than balance out the not-so-good portions. 

The adventure itself is good, but many adventures are very similar, 
so you play one and you’ve played 90% of them all. The vocabulary 
the computer uses is the standard package, with the usual 
“speciality” words applying only to this adventure thrown in (i.e. Bud¬ 
dha, scrolls). 

Overall, I call this adventure o.k. to good. I find nothing outstanding 
to just rip me away from something else, but it is a nice change from 
the usual routine. 

— Aaron Ness 
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MULTIPLICATION 

FLASHO 

Every year grade school children across the land renew their efforts 
to master the multiplication facts. For a few it is easy, but for most it 
ranges from hard to down right nasty. My youngest daughter was 
quickly convinced it was simply impossible. Flashcards helped some 
but it was still a bit of a teeth gritting experience for all involved. I 
decided to try to write a flash card program to be fun, friendly, and not 
too childish for a grownup fourth grader. The result was FLASHO. Its 
immediate success was a bit of a surprise to everyone. However, no 
one was more surprised and pleased than my daughter, the new 
record holder for the fourth grade multiplication speed test. 

As you probably recall, a traditional flashcard drill works something 
line this: First the teacher displays a card giving a multiplication pro¬ 
blem, say 6x7 = ?. You are given a few seconds to come up with an 
answer (speed is important since it doesn’t help much if you have to 
do the problem on your fingers). If your answer is correct then 
everyone is happy. However, if the you are wrong, then (a) The teacher 
gives the correct answer, trying not to groan because this is the 
seventeenth wrong answer so far. (b) You feel increasingly uncomfor¬ 
table because your lack of skill is so openly exposed. Isn’t this fun! 
Now you remember why you always enjoyed this little exercise so 
much. 

Now, I am not going to try to convince you FLASHO is going to 
make learning the multiplication facts more fun than playing Star 
Raiders. However, FLASHO does remove some of the unpleasant 
aspects of the process, and it is certainly less dull. The program does 
not get irritated or impatient no matter how many mistakes you make. 
Also, FLASHO always remembers to give you a pat on the back when 
you are doing well. 

Each FLASHO “game” consists of 48 problems. The problems are 
displayed one at a time and a joystick is used to select the correct 
answer. The name FLASHO, comes from the flashing “O” that is posi¬ 
tioned by the joystick to select the answer. The object of the “game” 
is to see if you can beat your previous high score. This competing 
against yourself is fundamental to this type of learning approach. 
With just a little effort you can get a better score each time you play. 
This is the technique coin-op arcade games use so successfully to 
keep the quarters rolling in. Here this technique can work to keep fhe 
student going a bit longer. $ 

The object of FLASHO as a teaching aid is to assist the studenf to 
memorize the multiplication facts.. For this reason, quick correct 
answers get more points than stowicorrect answers. Also, no points 
are deducted for incorrect answers (remember, the program does nbt 
get irritated with a slower leaner). You can get a higher score by go¬ 
ing quickly and missing a few problems than by going slowly and get¬ 
ting them all right. This emphasis on quick recall is important since it 
forces you to memorize the answers to get the highest scores. Coun¬ 
ting on your fingers literally does not count for much with FLASHO. 

USING THE PROGRAM 

When you first run FLASHO you are asked to enter the highest 
multipliers to are to be used in the drill. For example if an 8 is entered, 
the problems will range from 2x2 to 8x8. Each game consists of 48 
problems selected at random. When a problem is presented, use the 
joystick to point to the answer, and use the trigger to confirm your 
selection. It usually takes a couple of games to get the feel of the 
stick and then it becomes second nature. If your the answer is correct 
you get a “yes” beep and it’s on to the next problem. If the answer is 
wrong, you get a “no” tone and the correct answer is displayed. After 
each answer the score is updated and the time to eespond to the last 
problem is displayed. 

Since the program emphasizes spe£d, you will get a rest break after 
each 12 problems. Presslhg the START key starts the a&*t set of 12 
problems. AMh€ end of four sets you can presb SfAWtodaegin a new 
g$me or OPTION to end. When you end the program, a table is 
displayed*showing the pumber of Correct and incorrect answers for 
eath problem. This talkie can be helpful to botb4h@Jeacff@^*nd stu¬ 
dent since it clearly shows the areas that need special Work 
HOW THE PROGRAM WORKS" 

FLASHO is 100 percent BASIC and uses graphics mode 1. The 
following “take-apart” discusses the various sections* of the program 
in the order in which they are run. *««* 


Lines 710-790: Introduction and Prompt for user to enter highest 
multipliers to be used. 

800-930: Draws the static part of the display and initializes program 
variables. 

1250-1470: Stores the pat-on-the-back messages in S$ for easier ac¬ 
cess. Additional messages can be added at line 1460. S$ has space 
for up to 100 14-character messages. The last message must be 
“END”. 

940-1130: Starts a new game if the START key is pressed (see line 
150) or ends the program if the OPTION key is pressed. When the pro¬ 
gram is ended, the right/wrong counters are displayed by lines 
1140-1240. 

150-260: Starts a set of 12 problems. Problems are selected at ran¬ 
dom. A special check is made to try to avoid repeated a problem if it 
has already been answered correctly. 

270-430: Joystick handling routine. Joystick 1 is used to position a 
flashing “O” to desired answer. 

440-490: Response to incorrect answer. The correct answer is 
displayed for several seconds before going on to the next problem. 

500-560: Response to correct answer. 

570-650: Display current score and time required to answer last pro¬ 
blem. 

660-700: Display a pat-on-the-back message after four correct 
answers in a row. 

NOTE FOR XL COMPUTER USERS 

If you are using an Atari XL computer, you need to make a change 
on line 610. Change the value 4.65 to 5.39. This change compensates 
for fact that FLASHO runs about 15 percent faster on an XL computer 
than it does on the earlier models. 

— J. A. Carr 


BLACKHOLE 

Converting popular board games to the ATARI, has become a 
favorite pastime of mine. One such game, which has become a hit 
among my friends and I, is called Blackhole. It’s a take-off of a game 
called Blackbox, I saw some time ago. 

The object of the game, is to find 1-6 holes, hidden in an 8x8 grid. 
This is done by injecting light rays into the grid, analyzing the result^ 
then logically pinpointing the locations of the hidden holes. 

The path the ray will make through the grid is simple. A ray will 
either be ‘A’ - absorbed, ‘R’ - reflected, or ‘a.a b.b etc.’ - refracted 
(remember your high school physics?). 

Absorbed means hitting a blackhole dead-on causing the ray to be 
swallowed up. Refracted means the ray has come within 1 square to 
the left or right of its path, causing it to refract 90 degrees away from 
the hole, and resume movement until it exits the grid or meets another 
hole (confused yet?). Reflected means the ray has come out the same 
place it was shot in. 

Movement around the perimeter and through the grid is done by the 
4 arrow keys, (without the Ctrl key). The ESCAPE key toggles you in 
and out of the game grid. The RETURN key will shoot a ray into the 
grid, if you are on the perimeter, or place/erace a dot, to indicate to the 
computer where you think the hole is, if you are inside the grid. Final¬ 
ly, pressing the SPACE BAR, in or out of the grid, will give you a pro¬ 
mpt asking if you want to see the final outcome, (choose ‘Y’ after 
you’ve marked all the holes in the grid, or if you give up). Hitting any 
other key or wrong input during the game, will produce a bell like tone. 

A point is added to your score for every ray result around the 
perimeter, and 3 for every hole you placed incorrectly. When the com¬ 
puter shows the results, there will either be a; (i) dot - correct place¬ 
ment (yipee!), (ii) diamond - a hole location you didn’t choose, or (iii) 
cross - you chose it but the hole wasn’t there. The lower your overall 
score the better. 

I realize the game seems complicated but it isn’t. The best way to 
learn it, is to select to place your own holes, at game start, then wat¬ 
ching the way the rays react to the known hole locations. Start with 1 
then build up until you think you understand it. Then let the computer 
choose the locations up to a limit of an insane 6. There are a few othe 
little nuances in the game you’ll discover only by playing it. Hope yok. 
like it ... it will surely grow on you!! 

- ED SCHEMBRI 
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Atari Computer Enthusiasts 

A.C.E. is an independent, non-profit and tax exempt computer club 
and user’s group with no connection to the Atari Company, a division 
of Warner Communication Company. We are a group interested in 
educating our members in the use of the Atari Computer and in giving 
the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide; membership fees include the A.C.E. 
Newsletter. Dues are $12 a year for U.S., and $22 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter 
Subscription Dep’t: 3662 Vine Maple Dr., Eugene, OR 97405. 

* President— Robert Browning, 90 W. Myoak Dr., Eugene, OR 97404 

503-689-1513 

Vice Pres— Larry Gold, 1927 McLean Blvd., Eugene, OR 97405 

503-686-1490 

Secretary— Bruce Ebling, 1501 River Loop #1, Eugene, OR 97404 

503-688-6872 

Librarian— Ron and Aaron Ness, 374 Blackfoot, Eugene, OR 97404 

503-689-7106. 

Editors— 

Mike Dunn, 3662 Vine Maple Dr., Eugene, OR 97405 / 503-344-6193 
Jim Bumpas, 4405 Dillard Rd., Eugene, OR 97405 503 / 484-9925 
E.R.A.C.E. (Education SIG Editor)— 

Ali Erickson, 295 Foxtail Dr., Eugene, OR 97405 / 503-687-1133 
E.R.A.C.E. Corresponding Secretary— 

Robert Browning, 90 W. Myoak, Eugene, OR 97404 / 503-689-1513 

Send 50c stamps or coin ($1 overseas) to the Ness’ for the new, 
updated ACE Library List-new in May 84 ! 

Best of ACE books 


TYPESETTING 

FROM YOUR COMPUTER 

ATARI OWNERS: If you have a modem, text editor, and com¬ 
munications program to send ASCII files, you should consider 
the improved readability and cost savings provided by 
TYPESETTING your program documentation, manuscript, 
newsletter, or other lengthy text instead of just reproducing it 
from line printer or daisy-wheel output. Computer typesetting 
by telephone offers you high quality, space-saving copy that 
creates the professional image you want! Hundreds of type 
styles to choose from with 8 styles and 12 sizes "on line” 
And it's easy to encode your copy with the few typesetting 
commands you need. 


COMPLETE CONFIDENTIALITY GUARANTEED 
— Bonded for your protection — 
PUBLICATION DESIGN, EDITING, & PRODUCTION 



30 East 13th Avenue Eugene, Oregon 97401 
Phone 503/683-2657 


Volume 1 contains bound issues of the ACE Newsletter from the first 
issue, Oct 81 to June of 1982 


Volume 2 covers July 1982 to June 1983 

Only $12 each ($2 extra for Airmail). Available only from: 

George Suetsugu 
45-602 Apuapu St 
Kanoehe, HI 96744 

SortFinder 1.2 

A composite index of Atari related articles from 5 popular computer 
periodicals from Apr ’81 to June ’83, including ACE. Only $6 for ACE 
member from: 

Jim Carr, Valley Soft 
2660 S.W. DeArmond 
Corvallis, OR 97333 
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L--SiCNTHUSlASTS 

3662 Vine Maple Dr. Euoene OR 97405 


Bulletin Board 
(503) 343-4352 

On line 24 hours a day, except for servicing and updating. Consists of 
a Tara equipped 48K Atari 400 with a TARA keyboard, 2 double-density 
double sided disk drives with an ATR 8000 interface, 2- 8” double 
density disk drives, an Epson MX80 printer, a Hayes SmartMagiem; 
runll^Uj^ARMl^piC Bulletin Board software written by Frank LHu- 
band^Kjfe N. Stafford St., ArlingtorwfV*22201 rSee the Not ’PC ioouc 
for ofemplete detailsA I T 
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